OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2500
EXAMPLE
60 = 2^2 * 3 * 5 with 2^2=4 < 5, therefore 60 is a term.
MATHEMATICA
spfQ[n_]:=Module[{fi=FactorInteger[n]}, Length[fi]>1&&fi[[1, 1]]^fi[[1, 2]] < fi[[-1, 1]]^fi[[-1, 2]]]; Select[Range[120], spfQ] (* Harvey P. Dale, Jul 30 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 22 2003
STATUS
approved