A051830 a(n) = Fibonacci(p(n)+1) mod p(n), where p(n) is the n-th prime.

0, 0, 3, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1

Offset

1,3

Comments

Terms are 1 when p(n) == 1 or 4 (mod 5) and 0 when p(n) == 2 or 3 (mod 5).

Links

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

Formula

a(n) = max(0, Legendre(5,prime(n))) for n >= 4, where Legendre is the Legendre symbol. - Haifeng Xu, Jan 31 2025

Example

p(3) = 5, so a(3) = Fibonacci(5+1) mod 5 = 3.

Mathematica

Table[Mod[Fibonacci[n+1], n], {n, Prime[Range[110]]}] (* Harvey P. Dale, Nov 27 2015 *)

Crossrefs

Cf. A000040, A000045, A003631, A045468, A051834, A051831.

Sequence in context: A392175 A196306 A107093 * A356098 A106216 A035676

Adjacent sequences: A051827 A051828 A051829 * A051831 A051832 A051833

Keyword

nonn

Author

Jud McCranie, Dec 11 1999

Status

approved