A134553 Concatenate Fibonacci(n), Fibonacci(n+4) and Fibonacci(n+2).

31, 152, 183, 2135, 3218, 53413, 85521, 138934, 2114455, 3423389, 55377144, 89610233, 144987377, 2331597610, 3772584987, 61041811597, 98767652584, 1597109464181, 2584177116765, 41812865710946, 67654636817711

Offset

0,1

Comments

Leading zeros are omitted.

Links

Table of n, a(n) for n=0..20.

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

Sequence in context: A226890 A104049 A176922 * A042880 A042882 A045160

Adjacent sequences: A134550 A134551 A134552 * A134554 A134555 A134556

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