OFFSET
1,1
COMMENTS
The prime numbers of this sequence are in A159231.
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..1000
Chris Caldwell, The Prime Glossary, Fibonacci number
MATHEMATICA
Select[Range[7597], Mod[Fibonacci[#], 8*#^2 - 2*# - 1] == 0 &] (* Arkadiusz Wesolowski, Dec 12 2011 *)
PROG
(Magma) [n : n in [1..7597] | IsZero(Fibonacci(n) mod (8*n^2-2*n-1))] // Arkadiusz Wesolowski, Nov 09 2013
(PARI) for(n=1, 7597, if(Mod(fibonacci(n), 8*n^2-2*n-1)==0, print1(n, ", "))); \\ Arkadiusz Wesolowski, Nov 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Apr 07 2009
STATUS
approved