%I #11 Jan 27 2020 03:52:00
%S 31,152,183,2135,3218,53413,85521,138934,2114455,3423389,55377144,
%T 89610233,144987377,2331597610,3772584987,61041811597,98767652584,
%U 1597109464181,2584177116765,41812865710946,67654636817711
%N Concatenate Fibonacci(n), Fibonacci(n+4) and Fibonacci(n+2).
%C Leading zeros are omitted.
%p with(combinat) : catL := proc(i,j) i*10^(max(1,ilog10(j)+1))+j ; end: A134553 := proc(n) local f ; f := Fib(n) ; catL( catL(fibonacci(n),fibonacci(n+4)),fibonacci(n+2)) ; end: seq(A134553(n),n=0..28) ; # _R. J. Mathar_, Jan 30 2008
%t ccf[n_]:=FromDigits[Flatten[Join[IntegerDigits/@{Fibonacci[n],Fibonacci[n+4], Fibonacci[n+2]}]]]; Table[ccf[n],{n,0,25}] (* _Harvey P. Dale_, Apr 26 2011 *)
%K nonn,base,easy
%O 0,1
%A Deuard Worthen (deuard(AT)tx.rr.com), Jan 23 2008, at the suggestion of _N. J. A. Sloane_
%E More terms from _R. J. Mathar_, Jan 30 2008
|