A004091 Fibonacci numbers written backwards.

0, 1, 1, 2, 3, 5, 8, 31, 12, 43, 55, 98, 441, 332, 773, 16, 789, 7951, 4852, 1814, 5676, 64901, 11771, 75682, 86364, 52057, 393121, 814691, 118713, 922415, 40238, 9626431, 9038712, 8754253, 7882075, 5647229, 25303941, 71875142, 96188093, 68954236, 551433201, 141085561, 692419762, 734494334, 337804107, 713094311, 3091136381, 3705121792

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base

Comments

Or, Fibonacci numbers reversed.

Links

• N. J. A. Sloane and Alois P. Heinz, Table of n, a(n) for n = 0..1000
• N. J. A. Sloane, Transforms
• N. J. A. Sloane, Maple program for A004091

Crossrefs

Cf. A000045, A004170, A014258.

Programs

Haskell

a004091 = a004086 . a000045  -- Reinhard Zumkeller, Mar 08 2013

Magma

[Seqint(Reverse(Intseq(Fibonacci(n)))): n in [0..50]]; // Vincenzo Librandi, Jan 17 2016

Maple

a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(
         ""||((<<0|1>, <1|1>>^n)[1,2])):
seq(a(n), n=0..50);  # Alois P. Heinz, Apr 09 2015

Mathematica

FromDigits[Reverse[IntegerDigits[#]]]&/@Fibonacci[Range[50]] (* Harvey P. Dale, Jun 10 2011 *)
IntegerReverse[Fibonacci[Range[0,50]]] (* Harvey P. Dale, Jun 21 2024 *)

PARI

a(n) = fromdigits(Vecrev(digits(fibonacci(n)))); \\ Michel Marcus, Mar 25 2024

Formula

a(n) = A004086(A000045(n)). - Reinhard Zumkeller, Mar 08 2013