%I #7 Dec 01 2018 11:39:33
%S 36,72,100,108,196,200,216,225,288,392,441,484,500,675,676,800,864,
%T 900,968,972,1000,1089,1125,1152,1156,1225,1323,1352,1372,1444,1521,
%U 1568,1764,1800,1944,2116,2312,2601,2700,2744,2888,3025,3087,3200,3249,3267
%N Numbers that factorize into a prime number of prime factors each raised to a prime exponent.
%H Harvey P. Dale, <a href="/A114127/b114127.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%K nonn
%O 1,1
%A _Jon Wild_, Feb 14 2006
|