A004688 Fibonacci numbers written in base 5.

0, 1, 1, 2, 3, 10, 13, 23, 41, 114, 210, 324, 1034, 1413, 3002, 4420, 12422, 22342, 40314, 113211, 204030, 322241, 1031321, 1404112, 2440433, 4400100, 12341033, 22241133, 40132221, 112423404, 203111130

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Comments

Sequence of last digit has period length of A001175(5)=20. Digits are almost evenly distributed. - Carmine Suriano, Mar 30 2012

Links

• Carmine Suriano and Vincenzo Librandi, Table of n, a(n) for n = 0..1000 (Carmine Suriano for n = 0..73)

Crossrefs

Cf. A000045 (Fibonacci), A007091 (numbers in base 5).

Programs

Magma

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

Maple

read("transforms") :
A004688 := proc(n)
        convert( combinat[fibonacci](n),base,5) ;
        ListTools[Reverse](%) ;
        digcatL(%) ;
end proc: # R. J. Mathar, Apr 01 2012

Mathematica

Table[BaseForm[Fibonacci[n],5],{n,1,20,1}] (* Vladimir Joseph Stephan Orlovsky, Jul 23 2008 *)
FromDigits[IntegerDigits[#, 5]]& / @Fibonacci[Range[0, 50]] (* Vincenzo Librandi, Jun 07 2013 *)

PARI

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