A272623 Fibonacci numbers whose first digit is equal to its last digit.

0, 1, 2, 3, 5, 8, 55, 17711, 63245986, 165580141, 498454011879264, 14472334024676221, 1100087778366101931, 298611126818977066918552, 781774079430987230203437, 14028366653498915298923761, 22698374052006863956975682, 36726740705505779255899443, 59425114757512643212875125

Offset: 1

Author

Chai Wah Wu, May 03 2016

Keywords

• nonn
• base

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..513

Crossrefs

Cf. A000045, A227858.

Programs

Mathematica

DeleteDuplicates@ Select[Fibonacci@ Range[0, 125], First@ # == Last@ # &@ IntegerDigits@ # &] (* Michael De Vlieger, May 04 2016 *)

PARI

isok(n) = my(d = digits(n)); d[1] == d[#d];
lista(nn) = print1(0, ", "); for (n=2, nn, if (isok(f=fibonacci(n)), print1(f, ", "))); \\ Michel Marcus, May 04 2016