A092778 Concatenate pairs of successive Fibonacci numbers.
1, 11, 12, 23, 35, 58, 813, 1321, 2134, 3455, 5589, 89144, 144233, 233377, 377610, 610987, 9871597, 15972584, 25844181, 41816765, 676510946, 1094617711, 1771128657, 2865746368, 4636875025, 75025121393, 121393196418
Offset: 0
Programs
-
Mathematica
AA = Table[Fibonacci[n]*10^(Floor[Log[10, 10Fibonacci[n + 1]]]) + Fibonacci[n + 1], {n, 1, 12}] (* José de Jesús Camacho Medina, Dec 16 2016 *) -
PARI
glue(a,b)=a*10^logint(10*b,10)+b a(n)=glue(fibonacci(n),fibonacci(n+1)) \\ Charles R Greathouse IV, Dec 16 2016
Formula
a(n) = A000045(n)*10^(A055642(A000045(n+1))) + A000045(n+1). - José de Jesús Camacho Medina, Dec 16 2016