login
a(n) = A000593(A005940(1+n)).
5

%I #7 Feb 16 2019 20:38:15

%S 1,1,4,1,6,4,13,1,8,6,24,4,31,13,40,1,12,8,32,6,48,24,78,4,57,31,124,

%T 13,156,40,121,1,14,12,48,8,72,32,104,6,96,48,192,24,248,78,240,4,133,

%U 57,228,31,342,124,403,13,400,156,624,40,781,121,364,1,18,14,56,12,84,48,156,8,112,72,288,32,372,104,320,6,168,96,384,48

%N a(n) = A000593(A005940(1+n)).

%H Antti Karttunen, <a href="/A324056/b324056.txt">Table of n, a(n) for n = 0..8191</a>

%H Antti Karttunen, <a href="/A324056/a324056.txt">Data supplement: n, a(n) computed for n = 0..70327</a>

%F a(n) = A000593(A005940(1+n)).

%F a(n) = A324054(n) / A038712(1+n).

%o (PARI)

%o A000593(n) = sigma(n>>valuation(n, 2)); \\ From A000593

%o A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t }; \\ From A005940

%o A324056(n) = A000593(A005940(1+n));

%Y Cf. A000593, A005940, A038712, A324054.

%K nonn

%O 0,3

%A _Antti Karttunen_, Feb 14 2019