login
A098365
Sums of two squares and divisible by 17.
5
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,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
Sequence in context: A188290 A268287 A249988 * A033899 A110287 A102813
KEYWORD
nonn
AUTHOR
Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Oct 26 2004
STATUS
approved