OFFSET
1,1
MATHEMATICA
a[n_] := a[n] = Prime[b[n]]; b[1] = 1; b[2] = 2; b[n_] := b[n] = b[n - 2] + a[n - 1]; Array[a, 15] (* Robert G. Wilson v, Dec 22 2005 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Yasutoshi Kohmoto, Dec 15 2005
EXTENSIONS
Better definition from Dean Hickerson, more terms from Emeric Deutsch, Dec 17 2005
a(12)-a(15) from Robert G. Wilson v, Dec 22 2005
a(16)-a(18) from Amiram Eldar, Sep 12 2022
STATUS
approved