|
|
A246554
|
|
Concatenation of the n-th Fibonacci number with itself.
|
|
1
|
|
|
11, 11, 22, 33, 55, 88, 1313, 2121, 3434, 5555, 8989, 144144, 233233, 377377, 610610, 987987, 15971597, 25842584, 41814181, 67656765, 1094610946, 1771117711, 2865728657, 4636846368, 7502575025, 121393121393, 196418196418, 317811317811, 514229514229
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(n) is the n-th Fibonacci number concatenated with itself; concatenation A000045.
Also, the quotient of a(n) divided by the n-th Fibonacci number is 10^d(n)+1, where d(n) is the number of digits in the n-th Fibonacci number (A060384).
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
The 7th Fibonacci number, 13, is concatenated with itself to become a(7) = 1313.
|
|
MAPLE
|
A:= proc(n)
local f;
f:= combinat:-fibonacci(n);
(10^length(f)+1)*f;
end proc:
# second Maple program:
a:= n-> (p-> parse(cat(p$2)))((<<0|1>, <1|1>>^n)[1, 2]):
|
|
MATHEMATICA
|
Table[FromDigits[Join[Flatten[IntegerDigits[{Fibonacci[n], Fibonacci[n]}]]]], {n, 50}] (* Vincenzo Librandi, Nov 15 2014 *)
#*10^IntegerLength[#]+#&/@Fibonacci[Range[30]] (* Harvey P. Dale, Jul 04 2015 *)
|
|
PROG
|
(Magma) [Seqint(Intseq(Fibonacci(n)) cat Intseq(Fibonacci(n))): n in [1..30]]; // Vincenzo Librandi, Nov 15 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|