OFFSET
1,2
MAPLE
K := (n, k) -> NumberTheory:-KroneckerSymbol(n, k):
isA := n -> local k; evalb(0 = add(K(n, k), k = 0..n)):
select(isA, [seq(0..133)]);
PROG
(PARI) isok(k) = sum(j=0, k, kronecker(k, j)) == 0; \\ Michel Marcus, May 17 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, May 16 2024
STATUS
approved