A073022 Each term is the smallest prime > the sum of the previous 2 terms.

1, 1, 3, 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, 58693331

Offset

0,3

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Formula

a(n+1)=nextprime(a(n)+a(n-1))

Example

After 1,1, the next prime >2 is 3.

Mathematica

nxt[{a_, b_}]:={b, NextPrime[a+b]}; NestList[nxt, {1, 1}, 40][[All, 1]] (* Harvey P. Dale, Apr 14 2022 *)

Prog

(PARI) l=1; h=1; print1("1, 1, "); while(l<2^32, t=l+h+1; while(!isprime(t), t+=1); print1(t, ", "); l=h; h=t)

Crossrefs

Cf. A055498.

Sequence in context: A361275 A342230 A023218 * A129694 A147015 A147023

Adjacent sequences: A073019 A073020 A073021 * A073023 A073024 A073025

Keyword

nonn

Author

Phil Carmody, Aug 15 2002

Status

approved