OFFSET
0,1
COMMENTS
Leading zeros are omitted.
MAPLE
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
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Deuard Worthen (deuard(AT)tx.rr.com), Jan 23 2008, at the suggestion of N. J. A. Sloane
EXTENSIONS
More terms from R. J. Mathar, Jan 30 2008
STATUS
approved