%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