login
A328841
Substitute ones for all nonzero digits in primorial base expansion of n, then convert back to decimal.
10
0, 1, 2, 3, 2, 3, 6, 7, 8, 9, 8, 9, 6, 7, 8, 9, 8, 9, 6, 7, 8, 9, 8, 9, 6, 7, 8, 9, 8, 9, 30, 31, 32, 33, 32, 33, 36, 37, 38, 39, 38, 39, 36, 37, 38, 39, 38, 39, 36, 37, 38, 39, 38, 39, 36, 37, 38, 39, 38, 39, 30, 31, 32, 33, 32, 33, 36, 37, 38, 39, 38, 39, 36, 37, 38, 39, 38, 39, 36, 37, 38, 39, 38, 39, 36, 37, 38, 39, 38, 39, 30
OFFSET
0,3
FORMULA
a(n) = n - A328842(n).
For all n>= 0, a(A276086(n)) = A328843(n).
For all n >= 1, A257993(a(n)) = A257993(n).
For all n >= 0, A328570(a(n)) = A328570(n), A328620(a(n)) = A328620(n), and A267263(a(n)) = A267263(n).
PROG
(PARI) A328841(n) = { my(p=2, r=1, s=0); while(n, s += ((!!(n%p))*r); r *= p; n = n\p; p = nextprime(1+p)); (s); };
CROSSREFS
Cf. A276156 (fixed points).
Cf. A276008 for analogous sequence.
Sequence in context: A326304 A174091 A318789 * A276008 A331171 A336953
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Oct 30 2019
STATUS
approved