OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[6, 800], Divisible[#, NextPrime[Sqrt[#], -1]]&] (* Harvey P. Dale, Sep 14 2019 *)
PROG
(PARI) for( n=5, 999, n % precprime(sqrtint(n-1)) || print1(n", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Mar 09 2009
STATUS
approved