A328841 Substitute ones for all nonzero digits in primorial base expansion of n, then convert back to decimal.

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

Author

Antti Karttunen, Oct 30 2019

Keywords

• nonn
• base

Links

• Antti Karttunen, Table of n, a(n) for n = 0..30029
• Index entries for sequences related to primorial base

Crossrefs

Cf. A002110, A007947, A257993, A267263, A276085, A276086, A328570, A328571, A328620, A328842, A328843.

Cf. A276156 (fixed points).

Cf. A276008 for analogous sequence.

Programs

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); };

Formula

a(n) = n - A328842(n).

a(n) = A276085(A328571(n)) = A276085(A007947(A276086(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).