login
A391936
a(n) = Sum_{i=1..A328404(n)} (A276086(n) mod prime(i))*A002110(i-1), where A276086 is the primorial base exp-function, and A328404(n) gives the length of A276086(n) in primorial base representation.
5
1, 4, 1, 6, 25, 18, 5, 2, 1, 60, 91, 180, 3, 34, 151, 90, 1081, 2160, 185, 1832, 331, 450, 781, 1350, 1953, 1594, 1231, 16110, 21751, 13260, 15, 28, 7, 12, 19, 6, 5, 2, 1, 210, 1471, 630, 3, 1894, 1681, 1050, 421, 10080, 1265, 212, 29191, 26040, 25201, 18060, 17853, 3364, 18901, 7770, 116761, 201180, 27, 22, 13
OFFSET
0,2
FORMULA
a(n) = A391930(A328404(n), A276086(n)).
a(A143293(n)-1) = 1.
A000035(a(n)) = 1 - A000035(n).
PROG
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A391936(n) = { my(x=A276086(n), m=1, s=0); for(i=1, oo, if(m>x, return(s)); s += (x%prime(i))*m; m *= prime(i)); };
CROSSREFS
Cf. A000035, A002110, A143293, A276086, A328404, A391930, A391935, A391937 [k for which a(k) == A276086(k)].
Sequence in context: A191714 A370356 A126150 * A374370 A364509 A349545
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Jan 06 2026
STATUS
approved