OFFSET
1,1
COMMENTS
Also composites k that divide both Fibonacci(k+1) and Lucas(k) - 1. - Gary Detlefs, Feb 28 2013
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..548 (terms < 4*10^9)
MATHEMATICA
Select[Range[2, 50000], ! PrimeQ[ # ] && Mod[Fibonacci[ # + 1], # ] == 0 && Mod[Fibonacci[ # ] + 1, # ] == 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric Rowland, May 01 2004
EXTENSIONS
More terms from Gareth McCaughan, Jun 11 2004
More terms from Ryan Propper, Aug 04 2005
Offset corrected by Giovanni Resta, Jul 20 2013
STATUS
approved