LINKS
G. C. Greubel, <a href="/A079816/b079816_1.txt">Table of n, a(n) for n = 0..1000</a>
The OEIS is supported by the many generous donors to the OEIS Foundation.
G. C. Greubel, <a href="/A079816/b079816_1.txt">Table of n, a(n) for n = 0..1000</a>
reviewed
approved
proposed
reviewed
editing
proposed
Number of permutations satisfying -k <= p(i)-i <= r and p(i)-i not in I, i=1..n, with k=1, r=5, I={1}.
proposed
editing
editing
proposed
G. C. Greubel, <a href="/A079816/b079816_1.txt">Table of n, a(n) for n = 0..1000</a>
<a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,1,1,1,1).
Recurrence: a(n) = a(n-1) + a(n-3) + a(n-4) + a(n-5) + a(n-6).
G.f.: -1/(1-x^6+-x^5+3-x^4+-x^3+5-x-1^6).
LinearRecurrence[{1, 0, 1, 1, 1, 1}, {1, 1, 1, 2, 4, 7}, 51] (* G. C. Greubel, Dec 12 2023 *)
(Magma) R<x>:=PowerSeriesRing(Integers(), 50); Coefficients(R!( 1/(1-x-x^3-x^4-x^5-x^6) )); // G. C. Greubel, Dec 12 2023
(SageMath)
def A079816_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( 1/(1-x-x^3-x^4-x^5-x^6) ).list()
A079816_list(50) # G. C. Greubel, Dec 12 2023
approved
editing
editing
approved
G.f.: -1/(x^6+x^5+x^4+x^3+x-1).
proposed
editing
editing
proposed