login
A004686
Fibonacci numbers written in base 3.
5
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,4
LINKS
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 *)
PROG
(PARI) vector(50, n, n--; fromdigits(digits(fibonacci(n), 3))) \\ G. C. Greubel, Oct 09 2018
(Magma) [Seqint(Intseq(Fibonacci(n), 3)): n in [0..50]]; // G. C. Greubel, Oct 09 2018
CROSSREFS
Cf. A000045 (Fibonacci), A007089 (numbers in base 3).
Sequence in context: A093325 A001363 A022367 * A080139 A055701 A176978
KEYWORD
nonn,base,easy
STATUS
approved