A334025 a(0)=0, a(1)=1; and a(n) = {2*a(n-2), 2*a(n-1)}, where {x,y} is the concatenation of x and y.
0, 1, 2, 24, 448, 48896, 89697792, 97792179395584, 179395584195584358791168, 195584358791168358791168391168717582336, 358791168391168717582336391168717582336717582336782337435164672
Offset: 0
Examples
a(2) = {2*a(2-2), 2*a(2-1)} = {2*0, 2*1} = 02 = 2. a(5) = {2*a(5-2), 2*a(5-1)} = {2*24, 2*448} = 48896.
Programs
-
Mathematica
a[0] = 0; a[1] = 1; a[n_] := a[n] = FromDigits @ Join[IntegerDigits[2*a[n - 2]], IntegerDigits[2*a[n - 1]]]; Array[a, 11, 0] (* Amiram Eldar, Apr 18 2020 *)
Comments