OFFSET
1,1
COMMENTS
The definition of Jacobi-first-non-one is given in A112056.
FORMULA
a(n) = 4*A112054(n) + 1.
MATHEMATICA
a112046[n_]:=Block[{i=1}, While[JacobiSymbol[i, 2n + 1]==1, i++]; i]; 4*Select[Range[1000], a112046[2#] - a112046[2# - 1] != 0 &] + 1 (* Indranil Ghosh, May 25 2017 *)
PROG
(PARI) jfno(n) = my(k = 1); while(kronecker(k, n) == 1, k++); k;
lista(nn) = {forstep(n=5, nn, 4, if (jfno(n-2) != jfno(n), print1(n, ", ")); ); } \\ Michel Marcus, Jan 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 27 2005
STATUS
approved