A328844 a(n) = A328842(A276086(n)).

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

Author

Antti Karttunen, Oct 30 2019

Keywords

• nonn

Links

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

Crossrefs

Cf. A276086, A328842, A328843.

Cf. A328836 (positions of zeros).

Programs

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); };
A328844(n) = A328842(A276086(n));

Formula

a(n) = A328842(A276086(n)).

a(n) = A276086(n) - A328843(n).