login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A211619 Number of ordered triples (w,x,y) with all terms in {-n,...-1,1,...,n} and 2w+x+y>2. 2
0, 1, 18, 73, 192, 395, 710, 1157, 1764, 2551, 3546, 4769, 6248, 8003, 10062, 12445, 15180, 18287, 21794, 25721, 30096, 34939, 40278, 46133, 52532, 59495, 67050, 75217, 84024, 93491, 103646, 114509, 126108, 138463, 151602, 165545, 180320, 195947, 212454 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

For a guide to related sequences, see A211422.

LINKS

Colin Barker, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (3,-2,-2,3,-1).

FORMULA

a(n) = 3*a(n-1) - 2*a(n-2) - 2*a(n-3) + 3*a(n-4) - a(n-5) for n>6.

From Colin Barker, Dec 04 2017: (Start)

G.f.: x*(1 + 15*x + 21*x^2 + 11*x^3 - 2*x^4 + 2*x^5) / ((1 - x)^4*(1 + x)).

a(n) = 4*n^3 - 5*n^2 + 5*n - 4 for n>1 and even.

a(n) = 4*n^3 - 5*n^2 + 5*n - 5 for n>1 and odd.

(End)

MATHEMATICA

t = Compile[{{u, _Integer}},

   Module[{s = 0}, (Do[If[2 w + x + y > 2,

         s = s + 1], {w, #}, {x, #}, {y, #}] &[

      Flatten[{Reverse[-#], #} &[Range[1, u]]]]; s)]];

Map[t[#] &, Range[0, 70]]  (* A211619 *)

FindLinearRecurrence[%]

(* Peter J. C. Moses, Apr 13 2012 *)

Join[{0, 1}, LinearRecurrence[{3, -2, -2, 3, -1}, {18, 73, 192, 395, 710}, 34]] (* Ray Chandler, Aug 02 2015 *)

PROG

(PARI) concat(0, Vec(x*(1 + 15*x + 21*x^2 + 11*x^3 - 2*x^4 + 2*x^5) / ((1 - x)^4*(1 + x)) + O(x^40))) \\ Colin Barker, Dec 04 2017

CROSSREFS

Cf. A211422.

Sequence in context: A154670 A041626 A039608 * A041628 A022145 A284659

Adjacent sequences:  A211616 A211617 A211618 * A211620 A211621 A211622

KEYWORD

nonn,easy,changed

AUTHOR

Clark Kimberling, Apr 16 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified December 15 08:49 EST 2017. Contains 296028 sequences.