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,3

Links

Table of n, a(n) for n=1..50.

Index entries for sequences related to primorial numbers

Index entries for sequences related to sigma(n)

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

Crossrefs

Row 1 of A337205.

Cf. A000593, A034386, A108951, A337203.

Cf. also A322819.

Sequence in context: A308559 A249268 A057869 * A166027 A158978 A128417

Adjacent sequences: A337201 A337202 A337203 * A337205 A337206 A337207

Keyword

nonn

Author

Antti Karttunen, Aug 22 2020

Status

approved