OFFSET
1,1
COMMENTS
a(n) <= 5 for all n (cf. Sun, Sun, 1992, p. 372).
LINKS
Z. H. Sun and Z. W. Sun, Fibonacci numbers and Fermat's last theorem, Acta Arithmetica, Vol. 60, No. 4 (1992), 371-388.
EXAMPLE
MATHEMATICA
Table[Function[p, k = 1; While[! Divisible[Fibonacci[p - KroneckerSymbol[k, p]], p], k++]; k]@ Prime@ n, {n, 120}] (* Michael De Vlieger, Jun 23 2016 *)
PROG
(PARI) a(n) = my(k=1, p=prime(n)); while(Mod(fibonacci(p-kronecker(k, p)), p)!=0, k++); k
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Jun 21 2016
STATUS
approved