A114127 Numbers that factorize into a prime number of prime factors each raised to a prime exponent.

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A114124 A114125 A114126 * A114128 A114129 A114130

Keyword

nonn

Author

Jon Wild, Feb 14 2006

Status

approved