This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A096398 #21 May 17 2024 04:56:54
%S A096398 0,1,2,4,6,9,16,25,36,49,64,81,100,121,144,169,196,225,256,289,324,
%T A096398 361,400,441,484,529,576,625,676,729,784,841,900,961,1024,1089,1156,
%U A096398 1225,1296,1369,1444,1521,1600,1681,1764,1849,1936,2025,2116,2209,2304,2401
%N A096398 Nonnegative numbers k such that 0 = #{ 0 <= i <= k : K(k, i) = -1 } where K(k, i) is the Kronecker symbol.
%C A096398 Contains all squares.
%C A096398 These are the indices of the rows of A372728 with nonnegative terms. - _Peter Luschny_, May 16 2024
%C A096398 Apparently, 2 and 6 are the only nonsquares in the sequence. - _Hugo Pfoertner_, May 16 2024
%t A096398 Reap[For[n = 0, n < 2500, n++, If[NoneTrue[Range[n], KroneckerSymbol[n, #] == -1&], Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Nov 18 2016 *)
%o A096398 (SageMath)
%o A096398 print([n for n in range(999) if 0 == sum(kronecker(n, k) == -1
%o A096398 for k in range(n + 1))]) # _Peter Luschny_, May 16 2024
%Y A096398 Cf. A000010, A051953, A372728.
%K A096398 nonn
%O A096398 1,3
%A A096398 _Benoit Cloitre_, Aug 06 2004
%E A096398 0 prepended by _Peter Luschny_, May 16 2024