The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #31 Jul 08 2024 21:42:50
%S 0,13,377,10946,317811,9227465,267914296,7778742049,225851433717,
%T 6557470319842,190392490709135,5527939700884757,160500643816367088,
%U 4660046610375530309,135301852344706746049,3928413764606871165730
%N a(n) = Fibonacci(7n).
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (29,1)
%F G.f.: -13*x / ( -1+29*x+x^2 ). a(n) = 13*A049667(n). - _R. J. Mathar_, Apr 17 2011
%F a(n) = A000045(A008589(n)). - _Michel Marcus_, Nov 08 2013
%t Table[Fibonacci[7n], {n, 0, 30}]
%t {a,b}={0,13};Do[Print[c={a,b}.{1,29}];a=b;b=c,{30}] (* _Zak Seidov_, Nov 02 2009 *)
%o (MuPAD) numlib::fibonacci(7*n) $ n = 0..25; // _Zerinvary Lajos_, May 09 2008
%o (Sage) [fibonacci(7*n) for n in range(0, 16)] # _Zerinvary Lajos_, May 15 2009
%o (Magma) [Fibonacci(7*n): n in [0..100]]; // _Vincenzo Librandi_, Apr 17 2011
%o (PARI) a(n)=fibonacci(7*n) \\ _Charles R Greathouse IV_, Jun 11 2015
%Y Cf. A000045, A134499, A134500, A134501, A134502, A134503, A134504, A049667.
%K nonn,easy
%O 0,2
%A _Artur Jasinski_, Oct 28 2007
%E Offset changed from 1 to 0 by _Vincenzo Librandi_, Apr 17 2011