OFFSET
1,2
COMMENTS
The numbers of terms not exceeding 10^k, for k = 1, 2, ..., are 7, 77, 779, 7806, 78105, 780693, 7806565, 78062581, 780603128, 7806020219, ... . Apparently, the asymptotic density of this sequence exists and equals 0.780... . - Amiram Eldar, Jul 02 2022
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[100], (f = FactorInteger[#])[[1, 2]] == 1 || (Length[f] > 1 && f[[1, 1]]^2 > f[[2, 1]]) &] (* Amiram Eldar, Jul 02 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 15 2006
STATUS
approved