A030604 Write the Fibonacci numbers in base 6 and juxtapose.

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

Offset: 0

Author

Clark Kimberling

Keywords

• nonn
• easy
• base

Programs

Mathematica

Flatten[IntegerDigits[#,6]&/@Fibonacci[Range[2,30]]] (* Harvey P. Dale, Apr 15 2012 *)

PARI

for(n=2,9,v=digits(fibonacci(n),6);for(j=1,#v,print1(v[j]", "))) \\ Charles R Greathouse IV, Feb 03 2014

Extensions

Name modified and a(0), a(1) inserted by Charles R Greathouse IV, Feb 03 2014 and Franklin T. Adams-Watters, Feb 03 2014