|
|
A294720
|
|
Palindromes in tribonacci sequence with initial values 0,1,0 (A001590).
|
|
0
|
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
7256527 is probably the last term.
|
|
LINKS
|
|
|
MATHEMATICA
|
a = c = 0; b = 1; lst = {0}; While[a < 10^100000, d = a + b + c; If[ Reverse[idn = IntegerDigits[n]] == idn], AppendTo[lst, d]]; a = b; b = c; c = d]; lst (* Robert G. Wilson v, Nov 09 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more,hard
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|