login
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
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
Subsequence of A062307.
Sequence in context: A124438 A124184 A062307 * A130100 A226230 A258400
KEYWORD
nonn
AUTHOR
Jon Wild, Feb 14 2006
STATUS
approved