A055501 a(0)=1, a(1)=2, a(n) = largest prime < a(n-1)+a(n-2).

1, 2, 2, 3, 3, 5, 7, 11, 17, 23, 37, 59, 89, 139, 227, 359, 577, 929, 1499, 2423, 3919, 6337, 10253, 16573, 26821, 43391, 70207, 113591, 183797, 297377, 481171, 778541, 1259701, 2038217, 3297913, 5336129, 8633983, 13970093, 22604069, 36574151, 59178199, 95752333

Offset: 0

Author

N. J. A. Sloane, Jul 08 2000

Keywords

• nonn

Comments

Except for initial terms, same as A055500. - Franklin T. Adams-Watters, Jul 11 2006

Links

• Amiram Eldar, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A055498, A055499, A055500, A055502.

Programs

Mathematica

Transpose[NestList[{#[[2]],NextPrime[Total[#],-1]}&,{1,2},40]][[1]] (* Harvey P. Dale, May 29 2013 *)