|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|