|
Search: id:A134554
|
|
|
| A134554 |
|
Concatenate the terms of three copies of the Fibonacci sequence. |
|
+0
1
|
|
| 0, 111, 111, 222, 333, 555, 888, 131313, 212121, 343434, 555555, 898989, 144144144, 233233233, 377377377, 610610610, 987987987, 159715971597, 258425842584, 418141814181, 676567656765, 109461094610946, 177111771117711
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Leading zeros are omitted.
|
|
FORMULA
|
a(n)=A074842(A000045(n+1)). - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 29 2008
|
|
MAPLE
|
catL := proc(i, j) i*10^(max(1, ilog10(j)+1))+j ; end: Fib := proc(n) if n = 0 then 0 ; else combinat[fibonacci](n+1) ; fi ; end: A134554 := proc(n) local f ; f := Fib(n) ; catL( catL(f, f), f) ; end: seq(A134554(n), n=0..25) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 29 2008
with(combinat): concat:=proc(a, b) local bb: bb:=nops(convert(b, base, 10)): 10^bb*a+b end proc: seq(concat(fibonacci(p), concat(fibonacci(p), fibonacci(p))), p=1..20); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 29 2008
|
|
CROSSREFS
|
Cf. A000045, A074842.
Adjacent sequences: A134551 A134552 A134553 this_sequence A134555 A134556 A134557
Sequence in context: A066335 A107844 A084504 this_sequence A084514 A084524 A133794
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
Deuard Worthen (deuard(AT)tx.rr.com), Jan 23 2008, at the suggestion of njas.
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl) and Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 29 2008
|
|
|
Search completed in 0.002 seconds
|
