login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) = A327860(A328842(n)).
4

%I #11 Nov 07 2019 14:39:11

%S 0,0,0,0,1,1,0,0,0,0,1,1,1,1,1,1,8,8,10,10,10,10,55,55,75,75,75,75,

%T 350,350,0,0,0,0,1,1,0,0,0,0,1,1,1,1,1,1,8,8,10,10,10,10,55,55,75,75,

%U 75,75,350,350,1,1,1,1,10,10,1,1,1,1,10,10,12,12,12,12,71,71,95,95,95,95,460,460,650,650,650,650,2825,2825,14,14,14,14

%N a(n) = A327860(A328842(n)).

%H Antti Karttunen, <a href="/A329032/b329032.txt">Table of n, a(n) for n = 0..2589</a>

%H Antti Karttunen, <a href="/A329032/a329032.txt">Data supplement: n, a(n) computed for n = 0..32768</a>

%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

%F a(n) = A327860(A328842(n)) = A003415(A276086(A328842(n))) = A003415(A328572(n)).

%o (PARI) A329032(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); if(e, m *= (p^(e-1)); s += ((e-1)/p)); n = n\p; p = nextprime(1+p)); (s*m); };

%Y Cf. A003415, A276086, A327860, A328572, A328842, A329031.

%Y Cf. A276156 (positions of zeros).

%K nonn

%O 0,17

%A _Antti Karttunen_, Nov 07 2019