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,1

Links

Table of n, a(n) for n=1..45.

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

Adjacent sequences: A098362 A098363 A098364 * A098366 A098367 A098368

Keyword

nonn

Author

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

Status

approved