login
A004690
Fibonacci numbers written in base 7.
3
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
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
KEYWORD
nonn,base,easy
STATUS
approved