|
%I #15 Feb 04 2014 09:34:39
%S 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,
%T 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,
%U 5,5,5,3,4,0,4,0,1,5,5,4,4,0,0,1,3,3,5,2,0,1,2,3
%N Write the Fibonacci numbers in base 6 and juxtapose.
%t Flatten[IntegerDigits[#,6]&/@Fibonacci[Range[2,30]]] (* _Harvey P. Dale_, Apr 15 2012 *)
%o (PARI) for(n=2,9,v=digits(fibonacci(n),6);for(j=1,#v,print1(v[j]", "))) \\ _Charles R Greathouse IV_, Feb 03 2014
%K nonn,easy,base
%O 0,4
%A _Clark Kimberling_
%E Name modified and a(0), a(1) inserted by _Charles R Greathouse IV_, Feb 03 2014 and _Franklin T. Adams-Watters_, Feb 03 2014
|
