OFFSET
0,3
MATHEMATICA
RecurrenceTable[{a[n] == Prime[a[n - 1] + a[n - 2]], a[0] == 0,
a[1] == 1}, a, {n, 0, 14}] (* Michael De Vlieger, Jul 01 2015 *)
PROG
(PARI) a(n)=if(n<3, n, prime(a(n-1)+a(n-2))) \\ Charles R Greathouse IV, Jul 13 2015
(PARI) main(size)={my(v=vector(size), i); v[1]=0; v[2]=1; for(i=3, size, v[i]=prime(v[i-1]+v[i-2])); return(v); } /* Anders Hellström, Jul 13 2015 */
(Perl) use bignum;
use Math::Prime::Util ':all';
$|=1;
my $a=0, $b=1;
while(1){
($a, $b)=($b, nth_prime($a+$b));
print("$b, ")
} # Charles R Greathouse IV, Jul 13 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Christopher Halverson, Jul 01 2015
EXTENSIONS
a(7)-a(14) from Michael De Vlieger, Jul 01 2015
a(15)-a(18) from Charles R Greathouse IV, Jul 13 2015
a(19) from Charles R Greathouse IV, Jul 14 2015
STATUS
approved