login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A373148
a(n) = A276085(n) mod A003415(n), where A003415 is the arithmetic derivative and A276085 is the primorial base log-function.
7
0, 0, 2, 0, 3, 0, 3, 4, 0, 0, 4, 0, 4, 0, 4, 0, 5, 0, 8, 2, 3, 0, 5, 2, 1, 6, 0, 0, 9, 0, 5, 2, 11, 0, 6, 0, 1, 8, 9, 0, 33, 0, 20, 10, 16, 0, 6, 4, 13, 12, 16, 0, 7, 8, 33, 2, 7, 0, 10, 0, 1, 34, 6, 12, 30, 0, 8, 2, 37, 0, 7, 0, 1, 14, 32, 6, 41, 0, 10, 8, 31, 0, 34, 6, 16, 8, 73, 0, 11, 0, 44, 2, 36, 12, 7, 0, 61
OFFSET
2,3
LINKS
PROG
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A002110(n) = prod(i=1, n, prime(i));
A276085(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*A002110(primepi(f[k, 1])-1)); };
A373148(n) = (A276085(n)%A003415(n));
CROSSREFS
Cf. also A373145, A373147, and also A328382.
Sequence in context: A253274 A365920 A337980 * A343309 A343488 A343270
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 27 2024
STATUS
approved