A055499 a(0)=0, a(1)=1, a(n) = smallest prime > a(n-1)+a(n-2).

0, 1, 2, 5, 11, 17, 29, 47, 79, 127, 211, 347, 563, 911, 1481, 2393, 3877, 6271, 10151, 16427, 26591, 43019, 69623, 112643, 182279, 294923, 477209, 772139, 1249361, 2021501, 3270863, 5292367, 8563237, 13855607, 22418849, 36274471

Offset

0,3

Links

Robert G. Wilson v, Table of n, a(n) for n = 0..1000

Mathematica

a[0] = 0; a[1] = 1; a[n_] := a[n] = NextPrime[a[n - 1] + a[n - 2]]; Array[a, 36, 0] (* Robert G. Wilson v, Mar 13 2013 *)

Crossrefs

Cf. A055498-A055502.

Sequence in context: A089440 A354789 A228353 * A014424 A023228 A027429

Adjacent sequences: A055496 A055497 A055498 * A055500 A055501 A055502

Keyword

nonn

Author

N. J. A. Sloane, Jul 08 2000

Status

approved