1,2
Select[Range[3*10^4], Mod[Fibonacci[ # ], # ] == Mod[Prime[ # ], # ] &]
Sequence in context: A004855 A097930 A012322 this_sequence A066776 A115901 A073325
Adjacent sequences: A076516 A076517 A076518 this_sequence A076520 A076521 A076522
nonn
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Oct 17 2002
Search completed in 0.002 seconds