|
%I #17 Jan 05 2024 17:47:45
%S 11,11,22,33,55,88,13,21,34,55,89,14,23,37,60,97,17,24,41,65,16,11,27,
%T 48,75,13,18,31,59,80,19,29,38,57,95,12,27,39,66,15,11,26,47,73,10,13,
%U 23,46,79,15,24,39,53,82,15,27,32,59,91,10,21,41,62,13,15,28,43,71,14
%N Concatenation of initial and final digits of n-th positive Fibonacci number.
%C Also, concatenation of A008963(n) and A003893(n).
%H Alois P. Heinz, <a href="/A138844/b138844.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Be#Benford">Index entries for sequences related to Benford's law</a>
%e a(15) = 60 because the 15th positive Fibonacci number is 610 and the concatenation of initial and final digits of 610 is 60.
%p a:= n-> (f-> parse(cat(f[1], f[-1])))(""||(combinat[fibonacci](n))):
%p seq(a(n), n=1..92); # _Alois P. Heinz_, Nov 23 2023
%t FromDigits[Join[{IntegerDigits[#][[1]]},{IntegerDigits[#][[-1]]}]]&/@ Fibonacci[Range[70]] (* _Harvey P. Dale_, Jun 15 2018 *)
%Y Cf. A000045, A003893, A008963, A073729, A138840, A138841, A138842, A138843.
%K base,easy,nonn
%O 1,1
%A _Omar E. Pol_, Apr 02 2008
|
