A126092 a(1)=2, a(2)=3, a(3)=5; a(n) = largest prime < a(n-1)+a(n-2)+a(n-3).

2, 3, 5, 7, 13, 23, 41, 73, 131, 241, 443, 811, 1493, 2741, 5039, 9257, 17033, 31327, 57601, 105953, 194869, 358417, 659237, 1212521, 2230159, 4101907, 7544573, 13876601, 25523011, 46944179, 86343787, 158810947, 292098907, 537253631

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..3775

Maple

f:= proc(n) option remember; prevprime(procname(n-1)+procname(n-2)+procname(n-3)) end proc:
f(1):= 2: f(2):= 3: f(3):= 5:
map(f, [$1..100]); # Robert Israel, Mar 12 2018

Mathematica

nxt[{a_, b_, c_}]:={b, c, NextPrime[a+b+c, -1]}; NestList[nxt, {2, 3, 5}, 40][[All, 1]] (* Harvey P. Dale, Jun 09 2018 *)

Crossrefs

Cf. A055501.

Sequence in context: A182315 A233862 A235394 * A132394 A295262 A006992

Adjacent sequences: A126089 A126090 A126091 * A126093 A126094 A126095

Keyword

nonn

Author

Zak Seidov, Mar 03 2007

Status

approved