A294720 Palindromes in tribonacci sequence with initial values 0,1,0 (A001590).
0, 1, 2, 3, 6, 11, 7256527
Offset: 1
Programs
-
Mathematica
a = c = 0; b = 1; lst = {0}; While[a < 10^7, d = a + b + c; If[ Reverse[idn = IntegerDigits[d]] == idn, AppendTo[lst, d]]; a = b; b = c; c = d]; lst (* Robert G. Wilson v, Nov 09 2017 *)
Comments