login
A337204
Sum of the odd divisors of the primorial inflation of n.
3
1, 1, 4, 1, 24, 4, 192, 1, 13, 24, 2304, 4, 32256, 192, 78, 1, 580608, 13, 11612160, 24, 624, 2304, 278691840, 4, 403, 32256, 40, 192, 8360755200, 78, 267544166400, 1, 7488, 580608, 3224, 13, 10166678323200, 11612160, 104832, 24, 427000489574400, 624, 18788021541273600, 2304, 240, 278691840, 901825033981132800, 4, 22971, 403
OFFSET
1,3
FORMULA
a(n) = A000593(A108951(n)).
MATHEMATICA
Array[DivisorSum[Apply[Times, FactorInteger[#] /. {p_, e_} /; e > 0 :> Apply[Times, Prime@ Range@ PrimePi@ p]^e], # &, OddQ] &, 50] (* Michael De Vlieger, Aug 27 2020 *)
PROG
(PARI)
A000593(n) = sigma(n>>valuation(n, 2));
A034386(n) = prod(i=1, primepi(n), prime(i));
A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) }; \\ From A108951
CROSSREFS
Row 1 of A337205.
Cf. also A322819.
Sequence in context: A308559 A249268 A057869 * A166027 A158978 A128417
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 22 2020
STATUS
approved