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,4

Links

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

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

Prog

(PARI) a(n)=fromdigits(digits(fibonacci(n), 7)) \\ Charles R Greathouse IV, Oct 28 2014
(Magma) [Seqint(Intseq(Fibonacci(n), 7)): n in [0..50]]; // G. C. Greubel, Oct 09 2018

Crossrefs

Cf. A000045 (Fibonacci), A007093 (numbers in base 7).

Sequence in context: A316467 A366884 A282238 * A001882 A044042 A175179

Adjacent sequences: A004687 A004688 A004689 * A004691 A004692 A004693

Keyword

nonn,base,easy

Author

N. J. A. Sloane

Status

approved