login
A004689
Fibonacci numbers written in base 6.
2
0, 1, 1, 2, 3, 5, 12, 21, 33, 54, 131, 225, 400, 1025, 1425, 2454, 4323, 11221, 15544, 31205, 51153, 122402, 213555, 340401, 554400, 1335201, 2334001, 4113202, 10451203, 15004405, 25500012, 44504421, 114404433
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], 6]; AppendTo[lst, f], {n, 0, 4*4!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 17 2009 *)
FromDigits[IntegerDigits[#, 6]]& / @ Fibonacci[Range[0, 40]] (* Vincenzo Librandi, Jun 08 2013 *)
PROG
(PARI) vector(50, n, n--; fromdigits(digits(fibonacci(n), 6))) \\ G. C. Greubel, Oct 09 2018
(Magma) [Seqint(Intseq(Fibonacci(n), 6)): n in [0..50]]; // G. C. Greubel, Oct 09 2018
CROSSREFS
Cf. A000045 (Fibonacci), A007092 (numbers in base 6).
Sequence in context: A064688 A089891 A282237 * A183364 A124370 A003428
KEYWORD
nonn,base,easy
STATUS
approved