A337204 Sum of the odd divisors of the primorial inflation of n.

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

Author

Antti Karttunen, Aug 22 2020

Keywords

• nonn

Links

• Index entries for sequences related to primorial numbers
• Index entries for sequences related to sigma(n)

Crossrefs

Row 1 of A337205.

Cf. A000593, A034386, A108951, A337203.

Cf. also A322819.

Programs

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 *)

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
A337204(n) = A000593(A108951(n));

Formula

a(n) = A000593(A108951(n)).