OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..300
MATHEMATICA
Select[ Range[ 2, 100000 ], ! PrimeQ[ # ] && Mod[ Fibonacci[ # ] - JacobiSymbol[ #, 5 ], # ] == 0 && JacobiSymbol[ #, 5 ] == 1 & ]
PROG
(Python)
from itertools import islice
from sympy import nextprime
from sympy.functions.combinatorial.numbers import legendre_symbol
from oeis_sequences.OEISsequences import fibonacci_mod
def A093372_gen(): # generator of terms
p, q = 4, 5
while True:
for m in range(p, q):
if fibonacci_mod(m, m) == 1 and legendre_symbol(m, 5) == 1:
yield m
p, q = q+1, nextprime(q)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 29 2004
EXTENSIONS
More terms from Eric Rowland, Apr 29 2004
More terms from Ryan Propper, Jul 21 2006
STATUS
approved