OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
FORMULA
MATHEMATICA
A294876[n_] := Product[Prime[GCD[d, n/d]], {d, Rest[Divisors[n]]}];
Array[A294876, 100] (* Paolo Xausa, Feb 22 2024 *)
PROG
(PARI) A294876(n) = { my(m=1); fordiv(n, d, if(d>1, m *= prime(gcd(d, n/d)))); m; };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 11 2017
STATUS
approved