A098365 Sums of two squares and divisible by 17.

17, 34, 68, 85, 136, 153, 170, 221, 272, 289, 306, 340, 425, 442, 493, 544, 578, 612, 629, 680, 697, 765, 833, 850, 884, 901, 986, 1037, 1088, 1105, 1156, 1224, 1241, 1258, 1360, 1377, 1394, 1445, 1513, 1530, 1649, 1666, 1700, 1717, 1768

Offset: 1

Author

Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Oct 26 2004

Keywords

• nonn

Examples

			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.....*
		

Programs

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 *)