1,1
f[x_] := Prime[x + 1] - Prime[x]; Select[Range[3, 10^3], f[ # ] == f[ # - 1] - f[ # - 2] &]
Sequence in context: A075275 A123122 A129189 this_sequence A028810 A097700 A154689
Adjacent sequences: A066510 A066511 A066512 this_sequence A066514 A066515 A066516
nonn
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 04 2002
Search completed in 0.002 seconds