|
|
A114130
|
|
Numbers whose factorization involves only prime exponents, all different, and no number appears both as an exponent and as a prime factor.
|
|
2
|
|
|
8, 9, 25, 32, 49, 121, 125, 128, 169, 243, 289, 343, 361, 529, 841, 961, 1331, 1369, 1681, 1849, 2048, 2187, 2197, 2209, 2809, 3481, 3721, 4489, 4913, 5041, 5329, 6125, 6241, 6859, 6889, 7921, 8192, 8575, 9409, 10201, 10609, 10976, 11449, 11881, 11907
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
pedQ[n_]:=Module[{fi=Transpose[FactorInteger[n]], a, b}, a=fi[[1]]; b = fi[[2]]; AllTrue[b, PrimeQ]&&Length[b]==Length[Union[b]]&&Intersection[ a, b]=={}]; Select[Range[12000], pedQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 24 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|