|
%I #29 Jan 13 2024 13:18:12
%S 1,2,3,5,8,1,4,2,3,3,7,6,1,1,0,8,1,7,0,2,7,8,4,5,8,7,4,7,1,3,1,6,2,1,
%T 6,4,3,4,8,1,5,6,5,5,1,0,2,4,6,1,6,0,1,2,2,6,2,5,8,4,3,2,7,1,7,0,5,4,
%U 0,1,2,3,8,2,1,2,0,4,4,6,1,3,2,8,3,8,2,5,3,3
%N Write the (n+1)st Fibonacci number in base 9 and juxtapose.
%H Marius A. Burtea, <a href="/A031111/b031111.txt">Table of n, a(n) for n = 1..1012</a> [truncated to Fib(95) by _Georg Fischer_, Jun 21 2019]
%e A004692(25..28) = 123821, 204461, 328382, 533853. - _Georg Fischer_, Jun 21 2019
%t Flatten[IntegerDigits[#,9]&/@Fibonacci[Range[30]]] (* _Harvey P. Dale_, Jan 13 2024 *)
%o (Magma) &cat[Reverse(Intseq(Fibonacci(k),9)):k in [2..28]]; // _Marius A. Burtea_, Jun 21 2019
%Y Cf. A004692 (Fibonacci numbers written in base 9).
%Y Similar sequences in base 3 (A030363), 4 (A030413), 6 (A030604), 7 (A031027), 8 (A031067), 5 (A031269).
%K nonn,base,easy,less
%O 1,2
%A _Clark Kimberling_
%E a(88)-a(90) corrected by _Georg Fischer_, Jun 21 2019
|
