A004690 Fibonacci numbers written in base 7.

0, 1, 1, 2, 3, 5, 11, 16, 30, 46, 106, 155, 264, 452, 1046, 1531, 2610, 4441, 10351, 15122, 25503, 43625, 102431, 146356, 252120, 431506, 1013626, 1445435, 2462364, 4241132, 10033526, 14304661, 24341520

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), A007093 (numbers in base 7).

Programs

Magma

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

Mathematica

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

PARI

a(n)=fromdigits(digits(fibonacci(n),7)) \\ Charles R Greathouse IV, Oct 28 2014