A114130 Numbers whose factorization involves only prime exponents, all different, and no number appears both as an exponent and as a prime factor.

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

Author

Jon Wild, Feb 14 2006

Keywords

• nonn

Links

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

Crossrefs

Subsequence of A062307.

Programs

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 *)