A004689 Fibonacci numbers written in base 6.

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

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Links

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

Crossrefs

Cf. A000045 (Fibonacci), A007092 (numbers in base 6).

Programs

Magma

[Seqint(Intseq(Fibonacci(n),6)): n in [0..50]]; // G. C. Greubel, Oct 09 2018

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

PARI

vector(50, n, n--; fromdigits(digits(fibonacci(n), 6))) \\ G. C. Greubel, Oct 09 2018