OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
antiQ[n_] := Module[{f = FactorInteger[n], p, k}, p = f[[-1, 1]]; k = f[[-1, 2]]; n/p^k < p]; Select[Range[118], CompositeQ[#] && antiQ[#] &] (* Amiram Eldar, Feb 24 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 21 2007
EXTENSIONS
Extended by Ray Chandler, Nov 17 2008
STATUS
approved