A004686 Fibonacci numbers written in base 3.

0, 1, 1, 2, 10, 12, 22, 111, 210, 1021, 2001, 10022, 12100, 22122, 111222, 211121, 1100120, 2012011, 10112201, 12201212, 100021120, 120000102, 220021222, 1110022101, 2100121100, 10210220201, 20011112001

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000045 (Fibonacci), A007089 (numbers in base 3).

Programs

Magma

[Seqint(Intseq(Fibonacci(n),3)): n in [0..50]]; // G. C. Greubel, Oct 09 2018

Mathematica

Table[BaseForm[Fibonacci[n],3],{n,1,20,1}] (* Vladimir Joseph Stephan Orlovsky, Jul 23 2008 *)
FromDigits[IntegerDigits[#, 3]]& / @Fibonacci[Range[0, 50]] (* Vincenzo Librandi, Jun 07 2013 *)

PARI

vector(50, n, n--; fromdigits(digits(fibonacci(n), 3))) \\ G. C. Greubel, Oct 09 2018