A096398 Numbers n such that 0= #{ 1<=i<=n : k(n,i)=-1 } where k(n,i) is the Kronecker symbol.

1, 2, 4, 6, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144, 169, 196, 225, 256, 289, 324, 361, 400, 441, 484, 529, 576, 625, 676, 729, 784, 841, 900, 961, 1024, 1089, 1156, 1225, 1296, 1369, 1444, 1521, 1600, 1681, 1764, 1849, 1936, 2025, 2116, 2209, 2304, 2401

Offset

1,2

Comments

contains all squares.

Links

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

Mathematica

Reap[For[n = 1, n < 2500, n++, If[NoneTrue[Range[n], KroneckerSymbol[n, #] == -1&], Sow[n]]]][[2, 1]] (* Jean-François Alcover, Nov 18 2016 *)

Crossrefs

Cf. A000010, A051953.

Sequence in context: A257655 A318026 A173241 * A110538 A288039 A327744

Adjacent sequences: A096395 A096396 A096397 * A096399 A096400 A096401

Keyword

nonn

Author

Benoit Cloitre, Aug 06 2004

Status

approved