|
|
A138393
|
|
Numbers of form 8k+1 which are not squares.
|
|
1
|
|
|
17, 33, 41, 57, 65, 73, 89, 97, 105, 113, 129, 137, 145, 153, 161, 177, 185, 193, 201, 209, 217, 233, 241, 249, 257, 265, 273, 281, 297, 305, 313, 321, 329, 337, 345, 353, 369, 377, 385, 393, 401, 409, 417, 425, 433, 449, 457, 465, 473, 481, 489, 497, 505
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[If[Sqrt[8k + 1] == Floor[Sqrt[8k + 1]], [null], AppendTo[a, 8k + 1]], {k, 0, 100}]; a
Select[8*Range[80]+1, !IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, May 03 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|