OFFSET
1,3
MATHEMATICA
a[n_]:= a[n]= If[n<3, 1, Prime[a[n-1]+a[n-2]]]; Table[a[n], {n, 13}] (* modified by G. C. Greubel, Aug 31 2019 *)
nxt[{a_, b_}]:={b, Prime[a+b]}; Transpose[NestList[nxt, {1, 1}, 13]][[1]] (* Harvey P. Dale, Oct 02 2013 *)
PROG
(Magma) a:= func< n | n lt 3 select 1 else NthPrime(Self(n-1) + Self(n-2)) >;
[a(n): n in [1..12]]; // G. C. Greubel, Aug 31 2019
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Labos Elemer, Apr 11 2003
EXTENSIONS
a(15) from G. C. Greubel, Aug 31 2019
a(16)-a(18) from Chai Wah Wu, Sep 18 2019
STATUS
approved