|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
