A293524 a(n) = Product_{d|n, d>1} prime(A052409(d)).

1, 2, 2, 6, 2, 8, 2, 30, 6, 8, 2, 48, 2, 8, 8, 210, 2, 48, 2, 48, 8, 8, 2, 480, 6, 8, 30, 48, 2, 128, 2, 2310, 8, 8, 8, 864, 2, 8, 8, 480, 2, 128, 2, 48, 48, 8, 2, 6720, 6, 48, 8, 48, 2, 480, 8, 480, 8, 8, 2, 3072, 2, 8, 48, 30030, 8, 128, 2, 48, 8, 128, 2, 17280, 2, 8, 48, 48, 8, 128, 2, 6720, 210, 8, 2, 3072, 8, 8, 8, 480

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Index entries for sequences computed from exponents in factorization of n

Formula

a(n) = Product_{d|n, d>1} A000040(A052409(d)).

Other identities. For all n >= 1:

A001222(a(n)) = A032741(n).

A007814(a(n)) = A183096(n).

A064989(a(n)) = A294875(n).

Prog

(PARI) A293524(n) = { my(m=1, e); fordiv(n, d, if(d>1, e = ispower(d); if(!e, m += m, m *= prime(e)))); m; };

Crossrefs

Cf. A000040, A052409, A294873, A294874, A294875.

Cf. also A293514, A293442.

Sequence in context: A294876 A293514 A028330 * A363831 A233591 A071052

Adjacent sequences: A293521 A293522 A293523 * A293525 A293526 A293527

Keyword

nonn

Author

Antti Karttunen, Nov 11 2017

Status

approved