OFFSET
1,1
COMMENTS
No more terms through 5000.
a(20) > 50000. - Robert Price, Nov 10 2018
MATHEMATICA
b[0] = b[1] = 0; b[2] = 1; b[n_] := b[n] = IntegerReverse[b[n - 1] + IntegerReverse[b[n - 2]] + b[n - 3]];
Reap[Do[If[PrimeQ[b[n]], Print[n]; Sow[n]], {n, 5000}]][[2, 1]] (* Jean-François Alcover, Dec 15 2017 *)
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
Jonathan Vos Post and Ray Chandler, Dec 31 2004
EXTENSIONS
a(15)-a(19) from Robert Price, Nov 10 2018
STATUS
approved