close
login
A328842
Decrement each nonzero digit by one in primorial base representation of n, then convert back to decimal.
10
0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 2, 2, 6, 6, 6, 6, 8, 8, 12, 12, 12, 12, 14, 14, 18, 18, 18, 18, 20, 20, 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 2, 2, 6, 6, 6, 6, 8, 8, 12, 12, 12, 12, 14, 14, 18, 18, 18, 18, 20, 20, 30, 30, 30, 30, 32, 32, 30, 30, 30, 30, 32, 32, 36, 36, 36, 36, 38, 38, 42, 42, 42, 42, 44, 44, 48, 48, 48, 48, 50, 50, 60, 60
OFFSET
0,5
FORMULA
a(n) = n - A328841(n).
For all n >= 0, a(A276086(n)) = A328844(n).
For all n >= 1, A328114(a(n)) = A328114(n) - 1.
PROG
(PARI) A328842(n) = { my(p=2, r=1, s=0); while(n, if((n%p)>0, s += ((n%p)-1)*r); r *= p; n = n\p; p = nextprime(1+p)); (s); };
CROSSREFS
Cf. A276156 (positions of zeros).
Cf. A276009 for analogous sequence.
Sequence in context: A163536 A328828 A276009 * A393054 A113302 A292946
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Oct 30 2019
STATUS
approved