A134498 a(n) = Fibonacci(7n).

0, 13, 377, 10946, 317811, 9227465, 267914296, 7778742049, 225851433717, 6557470319842, 190392490709135, 5527939700884757, 160500643816367088, 4660046610375530309, 135301852344706746049, 3928413764606871165730

Offset

0,2

Links

Table of n, a(n) for n=0..15.

Index entries for linear recurrences with constant coefficients, signature (29,1)

Formula

G.f.: -13*x / ( -1+29*x+x^2 ). a(n) = 13*A049667(n). - R. J. Mathar, Apr 17 2011

a(n) = A000045(A008589(n)). - Michel Marcus, Nov 08 2013

Mathematica

Table[Fibonacci[7n], {n, 0, 30}]
{a, b}={0, 13}; Do[Print[c={a, b}.{1, 29}]; a=b; b=c, {30}] (* Zak Seidov, Nov 02 2009 *)

Prog

(MuPAD) numlib::fibonacci(7*n) $ n = 0..25; // Zerinvary Lajos, May 09 2008
(Sage) [fibonacci(7*n) for n in range(0, 16)] # Zerinvary Lajos, May 15 2009
(Magma) [Fibonacci(7*n): n in [0..100]]; // Vincenzo Librandi, Apr 17 2011
(PARI) a(n)=fibonacci(7*n) \\ Charles R Greathouse IV, Jun 11 2015

Crossrefs

Cf. A000045, A134499, A134500, A134501, A134502, A134503, A134504, A049667.

Sequence in context: A320458 A320635 A279306 * A329554 A267433 A142122

Adjacent sequences: A134495 A134496 A134497 * A134499 A134500 A134501

Keyword

nonn,easy

Author

Artur Jasinski, Oct 28 2007

Extensions

Offset changed from 1 to 0 by Vincenzo Librandi, Apr 17 2011

Status

approved