A069103 - OEIS

A069103

a(1) = 1; a(2) = 1; a(n) = prime(a(n-1)) + prime(a(n-2)) if n > 2.

1, 1, 4, 9, 30, 136, 882, 7626, 84448, 1159912, 19226112, 376464500, 8556370952, 222510227460, 6542050923204, 215278202878118, 7860760142260830, 316135809596510856

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

Table of n, a(n) for n=1..18.

EXAMPLE

a(3) = prime(a(2)) + prime(a(1)) = 2 + 2 = 4.

MATHEMATICA

f[x_] := Prime[f[x-1]]+Prime[f[x-2]] {f[1]=1, f[2]=1}; Table[f[w], {w, 1, 15}]

nxt[{a_, b_}]:={b, Prime[a]+Prime[b]}; Join[{1}, Union[Flatten[NestList[nxt, {1, 1}, 13]]]] (* Harvey P. Dale, Sep 17 2013 *)

CROSSREFS

Sequence in context: A105865 A187983 A230056 * A377288 A364239 A041137

Adjacent sequences: A069100 A069101 A069102 * A069104 A069105 A069106

KEYWORD

nonn,more

AUTHOR

Joseph L. Pe, Apr 06 2002

EXTENSIONS

More terms from Labos Elemer, Apr 11 2003

a(16)-a(18) from Chai Wah Wu, Sep 18 2019

STATUS

approved