|
%I #12 May 04 2016 19:04:52
%S 0,1,2,3,5,8,55,17711,63245986,165580141,498454011879264,
%T 14472334024676221,1100087778366101931,298611126818977066918552,
%U 781774079430987230203437,14028366653498915298923761,22698374052006863956975682,36726740705505779255899443,59425114757512643212875125
%N Fibonacci numbers whose first digit is equal to its last digit.
%H Chai Wah Wu, <a href="/A272623/b272623.txt">Table of n, a(n) for n = 1..513</a>
%t DeleteDuplicates@ Select[Fibonacci@ Range[0, 125], First@ # == Last@ # &@ IntegerDigits@ # &] (* _Michael De Vlieger_, May 04 2016 *)
%o (PARI) isok(n) = my(d = digits(n)); d[1] == d[#d];
%o lista(nn) = print1(0, ", "); for (n=2, nn, if (isok(f=fibonacci(n)), print1(f, ", "))); \\ _Michel Marcus_, May 04 2016
%Y Cf. A000045, A227858.
%K nonn,base
%O 1,3
%A _Chai Wah Wu_, May 03 2016
|
