[go: up one dir, main page]

login
A134553
Concatenate Fibonacci(n), Fibonacci(n+4) and Fibonacci(n+2).
1
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.
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
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