A324890 a(1) = 0, and for n > 1, a(n) = A276150(n) + a(A064989(n)).

0, 1, 3, 2, 6, 2, 8, 2, 5, 6, 12, 3, 15, 9, 6, 4, 20, 5, 24, 7, 11, 13, 30, 5, 10, 17, 8, 12, 37, 3, 39, 2, 12, 18, 10, 4, 42, 23, 17, 7, 47, 9, 51, 12, 8, 29, 57, 5, 15, 10, 23, 18, 64, 7, 17, 12, 25, 37, 72, 4, 75, 40, 11, 4, 17, 12, 79, 19, 28, 11, 85, 6, 90, 44, 11, 26, 17, 18, 96, 9, 11, 49, 104, 12, 24, 54, 37, 16, 113, 6

Offset

1,3

Links

Antti Karttunen, Table of n, a(n) for n = 1..30030

Index entries for sequences computed from indices in prime factorization

Index entries for sequences related to primorial base

Index entries for sequences related to primorial numbers

Formula

a(1) = 0, and for n > 1, a(n) = A276150(n) + a(A064989(n)).

a(n) = A001222(A324889(n)).

For n >= 0, a(A002110(n)) = n.

Prog

(PARI)
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};
A276150(n) = { my(s=0, m); forprime(p=2, , if(!n, return(s)); m = n%p; s += m; n = (n-m)/p); };
A324890(n) = if(1==n, 0, A276150(n) + A324890(A064989(n)));

Crossrefs

Cf. A001222, A002110, A064989, A276150, A324889.

Sequence in context: A245691 A071044 A077066 * A180240 A065228 A092843

Adjacent sequences: A324887 A324888 A324889 * A324891 A324892 A324893

Keyword

nonn

Author

Antti Karttunen, Mar 30 2019

Status

approved