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,4

Links

Table of n, a(n) for n=0..91.

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A031027 A134730 A126046 * A007880 A004573 A242730

Adjacent sequences: A030601 A030602 A030603 * A030605 A030606 A030607

Keyword

nonn,easy,base

Author

Clark Kimberling

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

Status

approved