|
%I #38 Mar 25 2024 12:06:19
%S 0,1,1,2,3,5,8,31,12,43,55,98,441,332,773,16,789,7951,4852,1814,5676,
%T 64901,11771,75682,86364,52057,393121,814691,118713,922415,40238,
%U 9626431,9038712,8754253,7882075,5647229,25303941,71875142,96188093,68954236,551433201,141085561,692419762,734494334,337804107,713094311,3091136381,3705121792
%N Fibonacci numbers written backwards.
%C Or, Fibonacci numbers reversed.
%H N. J. A. Sloane and Alois P. Heinz, <a href="/A004091/b004091.txt">Table of n, a(n) for n = 0..1000</a>
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%H N. J. A. Sloane, <a href="/A004091/a004091.txt">Maple program for A004091</a>
%F a(n) = A004086(A000045(n)). - _Reinhard Zumkeller_, Mar 08 2013
%p a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(
%p ""||((<<0|1>, <1|1>>^n)[1,2])):
%p seq(a(n), n=0..50); # _Alois P. Heinz_, Apr 09 2015
%t FromDigits[Reverse[IntegerDigits[#]]]&/@Fibonacci[Range[50]] (* _Harvey P. Dale_, Jun 10 2011 *)
%o (Haskell)
%o a004091 = a004086 . a000045 -- _Reinhard Zumkeller_, Mar 08 2013
%o (Magma) [Seqint(Reverse(Intseq(Fibonacci(n)))): n in [0..50]]; // _Vincenzo Librandi_, Jan 17 2016
%o (PARI) a(n) = fromdigits(Vecrev(digits(fibonacci(n)))); \\ _Michel Marcus_, Mar 25 2024
%Y Cf. A000045, A004170, A014258.
%K nonn,base
%O 0,4
%A _N. J. A. Sloane_
|
