|
%I #24 Sep 08 2022 08:46:02
%S 0,0,0,0,0,0,1,1,3,4,7,12,20,33,53,87,141,228,369,597,966,1563,2530,
%T 4093,6624,10717,17341,28059,45401,73461,118862,192324,311187,503511,
%U 814698,1318209,2132907,3451116,5584024,9035140,14619165
%N a(n) = floor(Fibonacci(n)/7).
%H Vincenzo Librandi, <a href="/A214286/b214286.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_18">Index entries for linear recurrences with constant coefficients</a>, signature (1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1, -1).
%F G.f.: x^6*(1+x^2+x^5+x^6+x^7+x^9+x^10) / ( (1-x-x^2)*(1-x^16) ). - _R. J. Mathar_, Jul 14 2012
%F a(n) = (A000045(n) - A105870(n))/7. - _R. J. Mathar_, Jul 14 2012
%t Floor[Fibonacci[Range[0, 40]]/7] (* modified by _G. C. Greubel_, May 22 2019 *)
%t LinearRecurrence[{1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,-1,-1},{0,0,0,0,0,0,1,1,3,4,7,12,20,33,53,87,141,228},50] (* _Harvey P. Dale_, Dec 01 2020 *)
%o (Magma) [Floor(Fibonacci(n)/7): n in [0..40]];
%o (PARI) vector(40, n, n--; fibonacci(n)\7 ) \\ _G. C. Greubel_, May 22 2019
%o (Sage) [floor(fibonacci(n)/7) for n in (0..40)] # _G. C. Greubel_, May 22 2019
%Y Cf. A004695-A004699.
%K nonn,easy
%O 0,9
%A _Vincenzo Librandi_, Jul 10 2012
|
