OFFSET
1,1
COMMENTS
Sequence is infinite. k^2 is a member if k == 7 (mod 50), or k == -7 (mod 50).
EXAMPLE
49 is a term as 48 and 50 are divisible by squares.
MATHEMATICA
okQ[n_]:=Max[Transpose[FactorInteger[n]][[2]]]>1; Select[Range[600]^2, okQ[#-1]&&okQ[#+1]&] (* Harvey P. Dale, Jan 26 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 22 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Sep 27 2003
STATUS
approved