A031027 Write the (n+1)st Fibonacci number in base 7 and juxtapose.

1, 2, 3, 5, 1, 1, 1, 6, 3, 0, 4, 6, 1, 0, 6, 1, 5, 5, 2, 6, 4, 4, 5, 2, 1, 0, 4, 6, 1, 5, 3, 1, 2, 6, 1, 0, 4, 4, 4, 1, 1, 0, 3, 5, 1, 1, 5, 1, 2, 2, 2, 5, 5, 0, 3, 4, 3, 6, 2, 5, 1, 0, 2, 4, 3, 1, 1, 4, 6, 3, 5, 6, 2, 5, 2, 1, 2, 0, 4, 3, 1, 5, 0, 6, 1, 0, 1, 3, 6, 2

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Programs

Mathematica

Flatten[IntegerDigits[#,7]&/@Fibonacci[Range[2,40]]] (* Harvey P. Dale, Jan 21 2013 *)