OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[50000], ! Mod[Fibonacci[ # ] - 1, # ] == 0 && Mod[Fibonacci[ # - 1], # ] == 0 &]
PROG
(PARI) fibmod(n, m)=(Mod([0, 1; 1, 1], m)^n*[0; 1])[1, 1]
is(n)=fibmod(n-1, n)==0 && fibmod(n, n)!=1 \\ Charles R Greathouse IV, Nov 04 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric Rowland, May 01 2004
EXTENSIONS
More terms from David Wasserman, May 08 2007
STATUS
approved