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

Links

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

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

Cf. A004768, A017077.

Sequence in context: A085255 A283395 A244752 * A340000 A044062 A044443

Adjacent sequences: A138390 A138391 A138392 * A138394 A138395 A138396

Keyword

nonn

Author

Artur Jasinski, Mar 18 2008

Status

approved