A086937 Number of distinct zeros of x^2-x-1 mod prime(n).

0, 0, 1, 0, 2, 0, 0, 2, 0, 2, 2, 0, 2, 0, 0, 0, 2, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 0, 2, 0, 0, 2, 0, 2, 2, 2, 0, 0, 0, 0, 2, 2, 2, 0, 0, 2, 2, 0, 0, 2, 0, 2, 2, 2, 0, 0, 2, 2, 0, 2, 0, 0, 0, 2, 0, 0, 2, 0, 0, 2, 0, 2, 0, 0, 2, 0, 2, 0, 2, 2, 2, 2, 2, 0, 2, 0, 2, 0, 2, 0, 0, 2, 0, 2, 2, 0, 2, 2, 0, 2, 0, 0, 0, 2, 2

Offset

1,5

Comments

For the prime modulus 5, the polynomial can be factored as (x+2)^2, showing that x=3 is a zero of multiplicity 2. The discriminant of the polynomial is 5. Also note how this sequence is related to the Fibonacci sequence A051830; for n>3, a(n) = 2*A051830(n). - T. D. Noe, Aug 13 2004

Links

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

J.-P. Serre, On a theorem of Jordan, Bull. Amer. Math. Soc., 40 (No. 4, 2003), 429-440, see p. 433.

Formula

If p = prime(n), a(n) = A080891(p) + 1.

Mathematica

Table[p=Prime[n]; cnt=0; Do[If[Mod[x^2-x-1, p]==0, cnt++ ], {x, 0, p-1}]; cnt, {n, 105}] (* T. D. Noe, Sep 24 2003 *)

Crossrefs

Cf. A086965, A086966, A086967.

Sequence in context: A110036 A308046 A289323 * A213024 A291289 A095759

Adjacent sequences: A086934 A086935 A086936 * A086938 A086939 A086940

Keyword

nonn

Author

N. J. A. Sloane, Sep 23 2003

Extensions

Corrected and extended by T. D. Noe, Sep 24 2003

Status

approved