OFFSET
1,1
EXAMPLE
Sums not divisible by 17 are indicated by asterisks:
....|...1....4....9...16....25....36....49....64....81...100...121
------------------------------------------------------------------
1...|...*....*....*...17.....*.....*.....*.....*.....*.....*.....*
4...|...*....*....*....*.....*.....*.....*....68....85.....*.....*
9...|...*....*....*....*....34.....*.....*.....*.....*.....*.....*
16..|..17....*....*....*.....*.....*.....*.....*.....*.....*.....*
25..|...*....*...34....*.....*.....*.....*.....*.....*.....*.....*
36..|...*....*....*....*.....*.....*....85.....*.....*...136.....*
49..|...*....*....*....*.....*....85.....*.....*.....*.....*...170
64..|...*...68....*....*.....*.....*.....*.....*.....*.....*.....*
81..|...*...85....*....*.....*.....*.....*.....*.....*.....*.....*
100.|...*....*....*....*.....*...136.....*.....*.....*.....*...221
121.|...*....*....*....*.....*.....*...170.....*.....*...221.....*
MATHEMATICA
ssq[upto_]:=Module[{max=Floor[Sqrt[upto]], seq}, seq=Select[Union[ Total/@Tuples[ Range[max]^2, {2}]], Divisible[#, 17]&]; Select[seq, #<=upto&]]; ssq[1800] (* Harvey P. Dale, Mar 24 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Oct 26 2004
STATUS
approved