|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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] (* From Harvey P. Dale, Mar 24 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A033014 A070814 A188290 * 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
|
| |
|
|
