OFFSET
1,2
COMMENTS
Numbers not divisible by 3, 8, or 25 and whose prime factors > 5 are congruent to +/- 1 mod 5. - Eric M. Schmidt, Jan 24 2014
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
MAPLE
with(numtheory); [seq(mroot(5, 2, p), p=1..400)];
MATHEMATICA
Prepend[ Select[ Range[300], Reduce[ Mod[5 - k^2, #] == 0, k, Integers] =!= False &], 1] (* Jean-François Alcover, Sep 20 2012 *)
Join[{1, 2, 4, 5}, Select[Range[6, 300], MemberQ[Mod[Range[#]^2, #], 5] &]] (* T. D. Noe, Sep 20 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 01 2000
STATUS
approved