login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A134554 Concatenate the terms of three copies of the Fibonacci sequence. 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; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Leading zeros are omitted.

LINKS

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

FORMULA

a(n)=A074842(A000045(n+1)). - R. J. Mathar, 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, 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, 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 3 18:24 EDT 2022. Contains 357237 sequences. (Running on oeis4.)