OFFSET
1,1
COMMENTS
Union of {4, 6, 9} and all the odd primes. - Amiram Eldar, Apr 17 2024
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[271], Function[{n, s}, Max[TakeWhile[Divisors[n], # <= s &]] == 3] @@ {#, Sqrt@ #} &[3 #] &] (* Michael De Vlieger, Feb 14 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jun 20 2009
EXTENSIONS
Terms beyond a(10) from R. J. Mathar, Jun 24 2009
STATUS
approved