login
A328844
a(n) = A328842(A276086(n)).
5
0, 0, 0, 0, 0, 12, 2, 2, 6, 0, 6, 60, 18, 12, 36, 120, 6, 210, 92, 2, 126, 510, 876, 2010, 378, 1002, 1626, 1200, 3066, 8700, 0, 6, 12, 6, 30, 90, 2, 32, 66, 0, 66, 420, 138, 102, 276, 840, 1326, 630, 632, 1502, 66, 2730, 5316, 13230, 1818, 6192, 10566, 23730, 6996, 46200, 12, 60, 108, 48, 222, 636, 2, 242, 486, 1260, 1956, 1890, 978, 102
OFFSET
0,6
FORMULA
a(n) = A328842(A276086(n)).
a(n) = A276086(n) - A328843(n).
PROG
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328842(n) = { my(p=2, r=1, s=0); while(n, if((n%p)>0, s += ((n%p)-1)*r); r *= p; n = n\p; p = nextprime(1+p)); (s); };
CROSSREFS
Cf. A328836 (positions of zeros).
Sequence in context: A177429 A242591 A010205 * A080496 A098781 A040142
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 30 2019
STATUS
approved