login
A030604
Write the Fibonacci numbers in base 6 and juxtapose.
19
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
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
KEYWORD
nonn,easy,base
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