OFFSET
1,1
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_] := Sum[ KroneckerSymbol[n, k], {k, 0, n}]; Select[ Range@ 1500, f[#] < 0 &] (* Robert G. Wilson v, Mar 21 2015 *)
PROG
(PARI) for(n=1, 1800, if(sum(i=0, n, kronecker(n, i)) < 0, print1(n, ", ")))
(SageMath)
print([n for n in range(999) if sum(kronecker(n, k)
for k in range(n + 1)) < 0]) # Peter Luschny, May 16 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Jun 16 2002
EXTENSIONS
Summation range set to {i=0..k} by Peter Luschny, May 16 2024
STATUS
approved