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,3

Links

Antti Karttunen, Table of n, a(n) for n = 0..30029

Index entries for sequences related to primorial base

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).

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. A002110, A007947, A257993, A267263, A276085, A276086, A328570, A328571, A328620, A328842, A328843.

Cf. A276156 (fixed points).

Cf. A276008 for analogous sequence.

Sequence in context: A326304 A174091 A318789 * A276008 A331171 A336953

Adjacent sequences: A328838 A328839 A328840 * A328842 A328843 A328844

Keyword

nonn,base

Author

Antti Karttunen, Oct 30 2019

Status

approved