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

Author

Antti Karttunen, Nov 11 2017

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384
• Index entries for sequences computed from exponents in factorization of n

Crossrefs

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

Cf. also A293514, A293442.

Programs

PARI

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

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