OFFSET
1,1
COMMENTS
The numbers of terms not exceeding 10^k, for k=1,2,...., are 0, 11, 128, 1245, 12474, 124052, 1240434, 12398594, 123976845, 1239840735, ... Apparently this sequence has an asymptotic density 0.1239... - Amiram Eldar, Mar 20 2021
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
3600 is included because 3600 = 2^4 * 3^2 * 5^2 and the smallest prime-power (which is largest prime-power of its prime to divide 3600), 3^2 = 9, is not a power of the smallest prime to divide 3600, which is 2.
MATHEMATICA
fQ[n_] := Block[{p = Power @@@ FactorInteger[n]}, First[p] != Min[p]]; Select[Range[460], fQ] (* Ray Chandler, Mar 25 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 23 2007
EXTENSIONS
Extended by Ray Chandler, Mar 25 2007
STATUS
approved