OFFSET
1,1
COMMENTS
FORMULA
EXAMPLE
MATHEMATICA
Select[LinearRecurrence[{1, 1, 1}, {1, 1, 1}, 200], AllTrue[{#, IntegerReverse[ #]}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 31 2019 *)
CROSSREFS
KEYWORD
more,nonn,base
AUTHOR
Jonathan Vos Post, Feb 15 2009
STATUS
approved