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,4

Links

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

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 *)

Prog

(PARI) vector(50, n, n--; fromdigits(digits(fibonacci(n), 4))) \\ G. C. Greubel, Oct 09 2018
(Magma) [Seqint(Intseq(Fibonacci(n), 4)): n in [0..50]]; // G. C. Greubel, Oct 09 2018

Crossrefs

Cf. A000045 (Fibonacci), A007090 (numbers in base 4).

Sequence in context: A129668 A086791 A291633 * A097895 A298351 A359017

Adjacent sequences: A004684 A004685 A004686 * A004688 A004689 A004690

Keyword

nonn,base,easy

Author

N. J. A. Sloane

Status

approved