A134554 Concatenate the terms of three copies of the Fibonacci sequence.

0, 111, 111, 222, 333, 555, 888, 131313, 212121, 343434, 555555, 898989, 144144144, 233233233, 377377377, 610610610, 987987987, 159715971597, 258425842584, 418141814181, 676567656765, 109461094610946, 177111771117711, 286572865728657, 463684636846368

Offset

0,2

Comments

Leading zeros are omitted.

Links

Alois P. Heinz, Table of n, a(n) for n = 0..1595

Formula

a(n) = A074842(A000045(n)). - R. J. Mathar, Jan 29 2008

Maple

catL := proc(i, j) i*10^(max(1, ilog10(j)+1))+j ; end:
A134554 := proc(n) local f ; f := combinat[fibonacci](n) ; catL( catL(f, f), f) ; end:
seq(A134554(n), n=0..25); # R. J. Mathar, Jan 29 2008
# Alternative:
a:= n-> parse(cat(combinat[fibonacci](n)$3)):
seq(a(n), n=0..20); # Emeric Deutsch, Jan 29 2008

Mathematica

concatfib[n_]:=Module[{idn=IntegerDigits[n]}, FromDigits[Join[idn, idn, idn]]]; concatfib/@Fibonacci[Range[0, 30]] (* Harvey P. Dale, Jul 13 2015 *)

Crossrefs

Cf. A000045, A074842.

Sequence in context: A066335 A107844 A084504 * A084514 A084524 A282826

Adjacent sequences: A134551 A134552 A134553 * A134555 A134556 A134557

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 and Emeric Deutsch, Jan 29 2008

Status

approved