|
%I #9 Sep 18 2015 03:40:28
%S 0,111,111,222,333,555,888,131313,212121,343434,555555,898989,
%T 144144144,233233233,377377377,610610610,987987987,159715971597,
%U 258425842584,418141814181,676567656765,109461094610946,177111771117711
%N Concatenate the terms of three copies of the Fibonacci sequence.
%C Leading zeros are omitted.
%F a(n)=A074842(A000045(n+1)). - _R. J. Mathar_, Jan 29 2008
%p 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
%p 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
%t concatfib[n_]:=Module[{idn=IntegerDigits[n]},FromDigits[Join[idn,idn,idn]]]; concatfib/@Fibonacci[Range[0,30]] (* _Harvey P. Dale_, Jul 13 2015 *)
%Y Cf. A000045, A074842.
%K nonn,base,easy
%O 0,2
%A Deuard Worthen (deuard(AT)tx.rr.com), Jan 23 2008, at the suggestion of _N. J. A. Sloane_
%E More terms from _R. J. Mathar_ and _Emeric Deutsch_, Jan 29 2008
|
