OFFSET
1,3
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..513
MATHEMATICA
DeleteDuplicates@ Select[Fibonacci@ Range[0, 125], First@ # == Last@ # &@ IntegerDigits@ # &] (* Michael De Vlieger, May 04 2016 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Chai Wah Wu, May 03 2016
STATUS
approved