|
|
A002418
|
|
4-dimensional figurate numbers: a(n) = (5*n-1)*binomial(n+2,3)/4.
(Formerly M4617 N1970)
|
|
19
|
|
|
0, 1, 9, 35, 95, 210, 406, 714, 1170, 1815, 2695, 3861, 5369, 7280, 9660, 12580, 16116, 20349, 25365, 31255, 38115, 46046, 55154, 65550, 77350, 90675, 105651, 122409, 141085, 161820, 184760, 210056, 237864, 268345, 301665, 337995
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Coefficients in the hypergeometric series identity 1 - 9*(x - 1)/(4*x + 1) + 35*(x - 1)*(x - 2)/((4*x + 1)*(4*x + 2)) - 95*(x - 1)*(x - 2)*(x - 3)/((4*x + 1)*(4*x + 2)*(4*x + 3)) + ... = 0, valid for Re(x) > 1. Cf. A000326 and A002412. Column 4 of A103450. - Peter Bala, Mar 14 2019
|
|
REFERENCES
|
Albert H. Beiler, Recreations in the Theory of Numbers, Dover, NY, 1964, p. 195.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x*(1+4*x)/(1-x)^5. - Simon Plouffe in his 1992 dissertation.
Starting (1, 9, 35, 95, ...), = A128064 * A000332, (A000332 starting 1, 5, 15, 35, 70, ...), such that a(n) = n*C(n+3,4) - (n-1)*C(n+2,4). E.g., a(5) = 210 = 5*C(8,4) - 4*C(7,4) = 5*70 - 4*35. - Gary W. Adamson, Dec 28 2007
Unit digit, A010879(a(n)), is one of {0,1,9,5,6,4} [Eric Desbiaux] because a(n) mod 5 = 0,1,4,0,0, periodic with period 5. [Proof: A002413(n) mod 5 = 1,3,1,0,0 with period 5 and a(n) are the partial sums of A002413.] - R. J. Mathar, Mar 19 2008
a(n) = 5*a(n-1) - 10*a(n-2) + 10*a(n-3) - 5*a(n-4) + a(n-5). - Harvey P. Dale, Oct 16 2012
a(n) = Sum_{i=0..n} (n-i) * Sum_{j=i..n} j. - J. M. Bergot, May 30 2017
E.g.f.: x*(24 + 84*x + 44*x^2 + 5*x^3)*exp(x)/4!. - G. C. Greubel, Jul 03 2019
Sum_{n>=1} 1/a(n) = (50*sqrt(5)*log(phi) + 125*log(5) - 50*sqrt(1+2/sqrt(5))*Pi - 26)/11, where phi is the golden ratio (A001622). - Amiram Eldar, Feb 11 2022
|
|
MATHEMATICA
|
Table[(5n-1) Binomial[n+2, 3]/4, {n, 0, 40}] (* or *) LinearRecurrence[ {5, -10, 10, -5, 1}, {0, 1, 9, 35, 95}, 40] (* Harvey P. Dale, Oct 16 2012 *)
CoefficientList[Series[x*(1 + 4*x)/(1 - x)^5, {x, 0, 40}], x] (* Vincenzo Librandi, Oct 17 2012 *)
|
|
PROG
|
(Magma) [(5*n - 1)*Binomial(n + 2, 3)/4: n in [0..40]]; // Vincenzo Librandi, Oct 17 2012
(GAP) List([0..40], n->(5*n-1)*Binomial(n+2, 3)/4); # Muniru A Asiru, Mar 18 2019
(Sage) [(5*n-1)*binomial(n+2, 3)/4 for n in (0..40)] # G. C. Greubel, Jul 03 2019
|
|
CROSSREFS
|
Cf. A093562 ((5, 1) Pascal, column m=4).
Cf. A220212 for a list of sequences produced by the convolution of the natural numbers with the k-gonal numbers.
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|