OFFSET
0,2
COMMENTS
Leading zeros are omitted.
FORMULA
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
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