A139478 a(n) = A001109(n) in binary.

1, 110, 100011, 11001100, 10010100101, 1101100010010, 1001110111000111, 111001011110011000, 101001110111111001001, 11110100000011100011110, 10110001110011101011101011, 10000001100010101101001100100

Offset: 1

Author

Artur Jasinski, Apr 22 2008

Keywords

• base
• nonn

Crossrefs

Cf. A001109, A139473, A139474, A139475, A139476, A139478.

Programs

Mathematica

a = {}; Do[k = IntegerDigits[Expand[((2*Sqrt[2] + 3)^(n) - (3 - 2*Sqrt[2])^(n))/(4*Sqrt[2])], 2]; AppendTo[a, FromDigits[k]], {n, 1, 50}]; a (*Artur Jasinski*)