OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
{1}~Join~Table[Function[{q, P}, n/Times @@ Power @@@ Select[q, First@ # <= P &]] @@ {#, Prime@ PrimePi[1 + Max@ #[[All, -1]] ]} &@ FactorInteger[n], {n, 2, 82}] (* Michael De Vlieger, Nov 13 2018 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 17 2008
STATUS
approved