OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
FORMULA
PROG
(PARI) A322312(n) = { my(m=1, p); fordiv(n, d, p=1+d; if(isprime(p), for(i=0, oo, if(n%(p^i), m *= prime(i); break)))); (m); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 03 2018
STATUS
approved