OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[50000], OddQ[ # ] && Mod[Fibonacci[ # ] - 1, # ] == 0 && ! Mod[Fibonacci[ # - 1], # ] == 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric Rowland, May 01 2004
EXTENSIONS
Offset corrected by Giovanni Resta, Jul 20 2013
STATUS
approved