A138393 Numbers of form 8k+1 which are not squares.

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

Offset: 1

Author

Artur Jasinski, Mar 18 2008

Keywords

• nonn

Crossrefs

Cf. A004768, A017077.

Programs

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