OFFSET
1,1
COMMENTS
No more terms through 8000.
a(16) > 50000. - Robert Price, Nov 07 2018
MATHEMATICA
a[n_] := a[n] = a[n - 1] + a[n - 2] + IntegerReverse[a[n - 3]];
a[0] = 0; a[1] = 0; a[2] = 1;
Select[Range[0, 5000], PrimeQ[a[#]] &] (* Robert Price, Apr 10 2020 *)
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
Jonathan Vos Post and Ray Chandler, Dec 31 2004
EXTENSIONS
a(12)-a(15) from Robert Price, Nov 07 2018
STATUS
approved