login
A004687
Fibonacci numbers written in base 4.
2
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
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
KEYWORD
nonn,base,easy
STATUS
approved