login
A328843
a(n) = A328841(A276086(n)).
4
1, 2, 3, 6, 9, 6, 3, 8, 9, 30, 39, 30, 7, 38, 39, 30, 219, 240, 33, 248, 249, 240, 249, 240, 247, 248, 249, 2550, 2559, 2550, 7, 8, 9, 36, 33, 36, 33, 38, 39, 210, 249, 210, 37, 248, 249, 210, 249, 2520, 243, 248, 2559, 2520, 2559, 2520, 2557, 2558, 2559, 2520, 32379, 32550, 37, 38, 39, 246, 219, 246, 243, 248, 249, 210, 249, 2520, 247
OFFSET
0,2
FORMULA
a(n) = A328841(A276086(n)).
a(n) = A276086(n) - A328844(n).
For all n >= 0, A257993(a(n)) = A328570(n).
PROG
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 30 2019
STATUS
approved