OFFSET
1,1
COMMENTS
This is to A115347 as Fibonacci numbers A000045 are to A000213 tribonacci numbers. Except for palidromatic tribonacci numbers {3, 5, ...} these are tribonacci emirps, A000213 INTERSECTION A006567.
a(7), if it exists, is greater than A000213(10000). - Dmitry Kamenetsky, Mar 03 2009
a(7), if it exists, is greater than A000213(116404), testing tribonacci primes using A157611. - Michael S. Branicky, May 27 2025
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
