login
A114127
Numbers that factorize into a prime number of prime factors each raised to a prime exponent.
1
36, 72, 100, 108, 196, 200, 216, 225, 288, 392, 441, 484, 500, 675, 676, 800, 864, 900, 968, 972, 1000, 1089, 1125, 1152, 1156, 1225, 1323, 1352, 1372, 1444, 1521, 1568, 1764, 1800, 1944, 2116, 2312, 2601, 2700, 2744, 2888, 3025, 3087, 3200, 3249, 3267
OFFSET
1,1
LINKS
MATHEMATICA
fpnQ[n_]:=Module[{f=FactorInteger[n]}, AllTrue[Flatten[Join[{Length[f], f[[All, 2]]}]], PrimeQ]]; Select[Range[3300], fpnQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 01 2018 *)
CROSSREFS
Sequence in context: A355462 A363216 A363169 * A322658 A224830 A044102
KEYWORD
nonn
AUTHOR
Jon Wild, Feb 14 2006
STATUS
approved