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
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved