A004687 Fibonacci numbers written in base 4.

0, 1, 1, 2, 3, 11, 20, 31, 111, 202, 313, 1121, 2100, 3221, 11321, 21202, 33123, 120331, 220120, 1001111, 1221231, 2223002, 10110233, 12333301, 23110200, 102110101, 131220301, 233331002, 1031211303, 1331202311

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), A007090 (numbers in base 4).

Programs

Magma

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

Mathematica

bf[n_,k_]:=Module[{s=ToString[BaseForm[n,k]]},ToExpression[StringDrop[s,{Part[StringPosition[s,"\n"],1,1],-1}]]] lst={};Do[f=bf[Fibonacci[n],4];AppendTo[lst,f],{n,0,4*4!}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 17 2009 *)
FromDigits[IntegerDigits[#,4]]&/@Fibonacci[Range[0,30]] (* Harvey P. Dale, Jun 24 2011 *)

PARI

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