A226449 -id:A226449 - cp's OEIS frontend

A006003 a(n) = n*(n^2 + 1)/2.

0, 1, 5, 15, 34, 65, 111, 175, 260, 369, 505, 671, 870, 1105, 1379, 1695, 2056, 2465, 2925, 3439, 4010, 4641, 5335, 6095, 6924, 7825, 8801, 9855, 10990, 12209, 13515, 14911, 16400, 17985, 19669, 21455, 23346, 25345, 27455, 29679, 32020, 34481, 37065, 39775

Offset: 0

N. J. A. Sloane, Simon Plouffe

Write the natural numbers in groups: 1; 2,3; 4,5,6; 7,8,9,10; ... and add the groups. In other words, "sum of the next n natural numbers". - Felice Russo
Number of rhombi in an n X n rhombus, if 'crossformed' rhombi are allowed. - Matti De Craene (Matti.DeCraene(AT)rug.ac.be), May 14 2000
Also the sum of the integers between T(n-1)+1 and T(n), the n-th triangular number (A000217). Sum of n-th row of A000027 regarded as a triangular array.
Unlike the cubes which have a similar definition, it is possible for 2 terms of this sequence to sum to a third. E.g., a(36) + a(37) = 23346 + 25345 = 48691 = a(46). Might be called 2nd-order triangular numbers, thus defining 3rd-order triangular numbers (A027441) as n(n^3+1)/2, etc. - Jon Perry, Jan 14 2004
Also as a(n)=(1/6)*(3*n^3+3*n), n > 0: structured trigonal diamond numbers (vertex structure 4) (cf. A000330 = alternate vertex; A000447 = structured diamonds; A100145 for more on structured numbers). - James A. Record (james.record(AT)gmail.com), Nov 07 2004
The sequence M(n) of magic constants for n X n magic squares (numbered 1 through n^2) from n=3 begins M(n) = 15, 34, 65, 111, 175, 260, ... - Lekraj Beedassy, Apr 16 2005 [comment corrected by Colin Hall, Sep 11 2009]
The sequence Q(n) of magic constants for the n-queens problem in chess begins 0, 0, 0, 0, 34, 65, 111, 175, 260, ... - Paul Muljadi, Aug 23 2005
Alternate terms of A057587. - Jeremy Gardiner, Apr 10 2005
Also partial differences of A063488(n) = (2*n-1)*(n^2-n+2)/2. a(n) = A063488(n) - A063488(n-1) for n>1. - Alexander Adamchuk, Jun 03 2006
In an n X n grid of numbers from 1 to n^2, select -- in any manner -- one number from each row and column. Sum the selected numbers. The sum is independent of the choices and is equal to the n-th term of this sequence. - F.-J. Papp (fjpapp(AT)umich.edu), Jun 06 2006
Nonnegative X values of solutions to the equation (X-Y)^3 - (X+Y) = 0. To find Y values: b(n) = (n^3-n)/2. - Mohamed Bouhamida, May 16 2006
For the equation: m*(X-Y)^k - (X+Y) = 0 with X >= Y, k >= 2 and m is an odd number the X values are given by the sequence defined by a(n) = (m*n^k+n)/2. The Y values are given by the sequence defined by b(n) = (m*n^k-n)/2. - Mohamed Bouhamida, May 16 2006
If X is an n-set and Y a fixed 3-subset of X then a(n-3) is equal to the number of 4-subsets of X intersecting Y. - Milan Janjic, Jul 30 2007
(m*(2n)^k+n, m*(2n)^k-n) solves the Diophantine equation: 2m*(X-Y)^k - (X+Y) = 0 with X >= Y, k >= 2 where m is a positive integer. - Mohamed Bouhamida, Oct 02 2007
Also c^(1/2) in a^(1/2) + b^(1/2) = c^(1/2) such that a^2 + b = c. - Cino Hilliard, Feb 09 2008
a(n) = n*A000217(n) - Sum_{i=0..n-1} A001477(i). - Bruno Berselli, Apr 25 2010
a(n) is the number of triples (w,x,y) having all terms in {0,...,n} such that at least one of these inequalities fails: x+y < w, y+w < x, w+x < y. - Clark Kimberling, Jun 14 2012
Sum of n-th row of the triangle in A209297. - Reinhard Zumkeller, Jan 19 2013
The sequence starting with "1" is the third partial sum of (1, 2, 3, 3, 3, ...). - Gary W. Adamson, Sep 11 2015
a(n) is the largest eigenvalue of the matrix returned by the MATLAB command magic(n) for n > 0. - Altug Alkan, Nov 10 2015
a(n) is the number of triples (x,y,z) having all terms in {1,...,n} such that all these triangle inequalities are satisfied: x+y > z, y+z > x, z+x > y. - Heinz Dabrock, Jun 03 2016
Shares its digital root with the stella octangula numbers (A007588). See A267017. - Peter M. Chema, Aug 28 2016
Can be proved to be the number of nonnegative solutions of a system of three linear Diophantine equations for n >= 0 even: 2*a_{11} + a_{12} + a_{13} = n, 2*a_{22} + a_{12} + a_{23} = n and 2*a_{33} + a_{13} + a_{23} = n. The number of solutions is f(n) = (1/16)*(n+2)*(n^2 + 4n + 8) and a(n) = n*(n^2 + 1)/2 is obtained by remapping n -> 2*n-2. - Kamil Bradler, Oct 11 2016
For n > 0, a(n) coincides with the trace of the matrix formed by writing the numbers 1...n^2 back and forth along the antidiagonals (proved, see A078475 for the examples of matrix). - Stefano Spezia, Aug 07 2018
The trace of an n X n square matrix where the elements are entered on the ascending antidiagonals. The determinant is A069480. - Robert G. Wilson v, Aug 07 2018
Bisections are A317297 and A005917. - Omar E. Pol, Sep 01 2018
Number of achiral colorings of the vertices (or faces) of a regular tetrahedron with n available colors. An achiral coloring is identical to its reflection. - Robert A. Russell, Jan 22 2020
a(n) is the n-th centered triangular pyramidal number. - Lechoslaw Ratajczak, Nov 02 2021
a(n) is the number of words of length n defined on 4 letters {b,c,d,e} that contain one or no b's, one c or two d's, and any number of e's. For example, a(3) = 15 since the words are (number of permutations in parentheses): bce (6), bdd (3), cee (3), and dde (3). - Enrique Navarrete, Jun 21 2025

			G.f. = x + 5*x^2 + 15*x^3 + 34*x^4 + 65*x^5 + 111*x^6 + 175*x^7 + 260*x^8 + ...
For a(2)=5, the five tetrahedra have faces AAAA, AAAB, AABB, ABBB, and BBBB with colors A and B. - _Robert A. Russell_, Jan 31 2020

J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 15, p. 5, Ellipses, Paris 2008.
F.-J. Papp, Colloquium Talk, Department of Mathematics, University of Michigan-Dearborn, March 6, 2005.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

T. D. Noe, Table of n, a(n) for n = 0..1000
J. D. Bell, A translation of Leonhard Euler's "De Quadratis Magicis", E795, arXiv:math/0408230 [math.CO], 2004-2005.
James Grime and Brady Haran, Magic Hexagon, Numberphile video (2014).
Milan Janjic, Two Enumerative Functions.
Milan Janjic and Boris Petkovic, A Counting Function, arXiv preprint arXiv:1301.4550 [math.CO], 2013. - _N. J. A. Sloane_, Feb 13 2013
Milan Janjic and Boris Petkovic, A Counting Function Generalizing Binomial Coefficients and Some Other Classes of Integers, Journal of Integer Sequences, 17 (2014), Article 14.3.5. - _Felix Fröhlich_, Oct 11 2016
S. M. Losanitsch, Die Isomerie-Arten bei den Homologen der Paraffin-Reihe, Chem. Ber. 30 (1897), 1917-1926.
S. M. Losanitsch, Die Isomerie-Arten bei den Homologen der Paraffin-Reihe, Chem. Ber. 30 (1897), 1917-1926. (Annotated scanned copy)
T. P. Martin, Shells of atoms, Phys. Reports, 273 (1996), 199-241, eq. (11).
Ashish Kumar Pandey and Brajesh Kumar Sharma, A Note On Magic Squares And Magic Constants, Appl. Math. E-Notes (2023) Vol. 23, Art. No. 53, 577-582. See p. 577.
A. J. Turner and J. F. Miller, Recurrent Cartesian Genetic Programming Applied to Famous Mathematical Sequences, preprint, Proceedings of the Companion Publication of the 2015 Annual Conference on Genetic and Evolutionary Computation.
Eric Weisstein's World of Mathematics, Magic Constant.
Wikipedia, Floyd's triangle. - _Paul Muljadi_, Jan 25 2010
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).
Index entries for sequences related to magic squares.
Index to sequences related to polygonal numbers.

Cf. A000330, A000537, A066886, A057587, A027480, A002817 (partial sums).
Cf. A000578 (cubes).
Cf. A007742, A005449, A005448, A118465, A226449, A034262, A080992, A267017.
(1/12)*t*(n^3-n)+n for t = 2, 4, 6, ... gives A004006, A006527, this sequence, A005900, A004068, A000578, A004126, A000447, A004188, A004466, A004467, A007588, A062025, A063521, A063522, A063523.
Antidiagonal sums of array in A000027. Row sums of the triangular view of A000027.
Cf. A063488 (sum of two consecutive terms), A005917 (bisection), A317297 (bisection).
Cf. A105374 / 8.
Cf. A000292, A011863, A001620, A248177.
Tetrahedron colorings: A006008 (oriented), A000332(n+3) (unoriented), A000332 (chiral), A037270 (edges).
Other polyhedron colorings: A337898 (cube faces, octahedron vertices), A337897 (octahedron faces, cube vertices), A337962 (dodecahedron faces, icosahedron vertices), A337960 (icosahedron faces, dodecahedron vertices).
Row 3 of A325001 (simplex vertices and facets) and A337886 (simplex faces and peaks).

a_n:=List([0..nmax], n->n*(n^2 + 1)/2); # Stefano Spezia, Aug 12 2018

a006003 n = n * (n ^ 2 + 1) `div` 2
a006003_list = scanl (+) 0 a005448_list
-- Reinhard Zumkeller, Jun 20 2013

% Also works with FreeMat.
for(n=0:nmax); tm=n*(n^2 + 1)/2; fprintf('%d\t%0.f\n', n, tm); end
% Stefano Spezia, Aug 12 2018

[n*(n^2 + 1)/2 : n in [0..50]]; // Wesley Ivan Hurt, Sep 11 2015

[Binomial(n,3)+Binomial(n-1,3)+Binomial(n-2,3): n in [2..60]]; // Vincenzo Librandi, Sep 12 2015

Table[ n(n^2 + 1)/2, {n, 0, 45}]
LinearRecurrence[{4,-6,4,-1}, {0,1,5,15},50] (* Harvey P. Dale, May 16 2012 *)
CoefficientList[Series[x (1 + x + x^2)/(x - 1)^4, {x, 0, 45}], x] (* Vincenzo Librandi, Sep 12 2015 *)
With[{n=50},Total/@TakeList[Range[(n(n^2+1))/2],Range[0,n]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Nov 28 2017 *)

a(n):=n*(n^2 + 1)/2$ makelist(a(n), n, 0, nmax); /* Stefano Spezia, Aug 12 2018 */

{a(n) = n * (n^2 + 1) / 2}; /* Michael Somos, Dec 24 2011 */

concat(0, Vec(x*(1+x+x^2)/(x-1)^4 + O(x^20))) \\ Felix Fröhlich, Oct 11 2016

def A006003(n): return n*(n**2+1)>>1 # Chai Wah Wu, Mar 25 2024

a(n) = binomial(n+2, 3) + binomial(n+1, 3) + binomial(n, 3). [corrected by Michel Marcus, Jan 22 2020]
G.f.: x*(1+x+x^2)/(x-1)^4. - Floor van Lamoen, Feb 11 2002
Partial sums of A005448. - Jonathan Vos Post, Mar 16 2006
Binomial transform of [1, 4, 6, 3, 0, 0, 0, ...] = (1, 5, 15, 34, 65, ...). - Gary W. Adamson, Aug 10 2007
a(n) = -a(-n) for all n in Z. - Michael Somos, Dec 24 2011
a(n) = Sum_{k = 1..n} A(k-1, k-1-n) where A(i, j) = i^2 + i*j + j^2 + i + j + 1. - Michael Somos, Jan 02 2012
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4), with a(0)=0, a(1)=1, a(2)=5, a(3)=15. - Harvey P. Dale, May 16 2012
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) + 3. - Ant King, Jun 13 2012
a(n) = A000217(n) + n*A000217(n-1). - Bruno Berselli, Jun 07 2013
a(n) = A057145(n+3,n). - Luciano Ancora, Apr 10 2015
E.g.f.: (1/2)*(2*x + 3*x^2 + x^3)*exp(x). - G. C. Greubel, Dec 18 2015; corrected by Ilya Gutkovskiy, Oct 12 2016
a(n) = T(n) + T(n-1) + T(n-2), where T means the tetrahedral numbers, A000292. - Heinz Dabrock, Jun 03 2016
From Ilya Gutkovskiy, Oct 11 2016: (Start)
Convolution of A001477 and A008486.
Convolution of A000217 and A158799.
Sum_{n>=1} 1/a(n) = H(-i) + H(i) = 1.343731971048019675756781..., where H(k) is the harmonic number, i is the imaginary unit. (End)
a(n) = A000578(n) - A135503(n). - Miquel Cerda, Dec 25 2016
Euler transform of length 3 sequence [5, 0, -1]. - Michael Somos, Dec 25 2016
a(n) = A037270(n)/n for n > 0. - Kritsada Moomuang, Dec 15 2018
a(n) = 3*A000292(n-1) + n. - Bruce J. Nicholson, Nov 23 2019
a(n) = A011863(n) - A011863(n-2). - Bruce J. Nicholson, Dec 22 2019
From Robert A. Russell, Jan 22 2020: (Start)
a(n) = C(n,1) + 3*C(n,2) + 3*C(n,3), where the coefficient of C(n,k) is the number of tetrahedron colorings using exactly k colors.
a(n) = C(n+3,4) - C(n,4).
a(n) = 2*A000332(n+3) - A006008(n) = A006008(n) - 2*A000332(n) = A000332(n+3) - A000332(n).
a(n) = A325001(3,n). (End)
From Amiram Eldar, Aug 21 2023: (Start)
Sum_{n>=1} 1/a(n) = 2 * (A248177 + A001620).
Product_{n>=2} (1 - 1/a(n)) = cosh(sqrt(7)*Pi/2)*cosech(Pi)/4.
Product_{n>=1} (1 + 1/a(n)) = cosh(sqrt(7)*Pi/2)*cosech(Pi). (End)

Better description from Albert Rich (Albert_Rich(AT)msn.com), Mar 1997

A069778 q-factorial numbers 3!_q.

Original entry on oeis.org

1, 6, 21, 52, 105, 186, 301, 456, 657, 910, 1221, 1596, 2041, 2562, 3165, 3856, 4641, 5526, 6517, 7620, 8841, 10186, 11661, 13272, 15025, 16926, 18981, 21196, 23577, 26130, 28861, 31776, 34881, 38182, 41685, 45396, 49321, 53466, 57837, 62440, 67281, 72366

Offset: 0

Franklin T. Adams-Watters, Apr 07 2002

Number of proper n-colorings of the 4-cycle with one vertex color fixed (offset 2). - Michael Somos, Jul 19 2002
n such that x^3 + x^2 + x + n factors over the integers. - James R. Buddenhagen, Apr 19 2005
If Y is a 4-subset of an n-set X then, for n>=5, a(n-5) is the number of 5-subsets of X having at least two elements in common with Y. - Milan Janjic, Dec 08 2007
Equals row sums of the Connell (A001614) sequence read as a triangle. - Gary W. Adamson, Sep 01 2008
Binomial transform of 1, 5, 10, 6, 0, 0, 0 (0 continued). - Philippe Deléham, Mar 17 2014
Digital root is A251780. - Peter M. Chema, Jul 11 2016

			For 2-colorings only 1212 is proper so a(2-2)=1. The proper 3-colorings are: 1212,1313,1213,1312,1232,1323 so a(3-2)=6.
a(0) = 1*1 = 1;
a(1) = 1*1 + 5*1 = 6;
a(2) = 1*1 + 5*2 + 10*1 = 21;
a(3) = 1*1 + 5*3 + 10*3 + 6*1 = 52;
a(4) = 1*1 + 5*4 + 10*6 + 6*4 = 105; etc. - _Philippe Deléham_, Mar 17 2014

T. A. Gulliver, Sequences from Cubes of Integers, Int. Math. Journal, 4 (2003), 439-445.

Kelvin Voskuijl, Table of n, a(n) for n = 0..10000
M. Golafshan, M. Rigo, and M. Whiteland, Computing the k-binomial complexity of generalized Thue-Morse words, arXiv:2412.18425 [math.CO], 2024. See p. 29.
Cemil Karaçam and Alper Vural, Enumerating 2D and 3D lattice paths with arbitrary steps, Mathematica Bohemica, pp. 1-13 (2025). See p. 10.
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Cf. A069777, A069779, A218503, A056108 (first differences).
Cf. A001614. - Gary W. Adamson, Sep 01 2008
Cf. A226449. - Bruno Berselli, Jun 09 2013

A069778 := proc(n)
    (n+1)*(n^2+n+1) ;
end proc: # R. J. Mathar, Aug 24 2013

LinearRecurrence[{4, -6, 4, -1}, {1, 6, 21, 52}, 41] (* or *) Table[(n + 1) (n^2 + n + 1), {n, 0, 41}] (* Harvey P. Dale, Jul 11 2011 *)
Table[QFactorial[3, n], {n, 0, 41}] (* Arkadiusz Wesolowski, Oct 31 2012 *)

PARI
```
a(n)=(n+1)*(n^2+n+1)
```

a(n) = (n + 1)*(n^2 + n + 1).
a(n) = (n+1)^3-2*T(n) where T(n) =n*(n+1)/2= A000217(n) is the n-th triangular number. - Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 14 2006
a(n) = n^8 mod (n^3+n), with offset 1..a(1)=1. - Gary Detlefs, May 02 2010
a(n) = 4*a(n-1)-6*a(n-2)+ 4*a(n-3)- a(n-4), n>3. - Harvey P. Dale, Jul 11 2011
G.f.: (1+2*x+3*x^2)/(1-x)^4. - Harvey P. Dale, Jul 11 2011
For n>0 a(n) = Sum_{k=A000217(n-1)...A000217(n+1)} k. - J. M. Bergot, Feb 11 2015
E.g.f.: (1 + 5*x + 5*x^2 + x^3)*exp(x). - Ilya Gutkovskiy, Jul 11 2016

A212133 Number of (w,x,y,z) with all terms in {1,...,n} and median=mean.

Original entry on oeis.org

0, 1, 8, 33, 88, 185, 336, 553, 848, 1233, 1720, 2321, 3048, 3913, 4928, 6105, 7456, 8993, 10728, 12673, 14840, 17241, 19888, 22793, 25968, 29425, 33176, 37233, 41608, 46313, 51360, 56761, 62528, 68673, 75208, 82145, 89496, 97273, 105488, 114153, 123280

Offset: 0

Clark Kimberling, May 04 2012

For a guide to related sequences, see A211795.

For n>=1, a(n) is the number of cells in the n-th rhombic-dodecahedral polycube. - George Sicherman, Jan 22 2024

			a(2) counts these 4-tuples:  (1,1,1,1), (1,1,2,2), (1,2,1,2), (2,1,1,2), (1,2,2,1), (2,1,2,1), (2,2,1,1), (2,2,2,2).

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Z. Janelidze, F. van Niekerk, and J. Viljoen, What is the maximal connected partial symmetry index of a connected graph of a given size?, arXiv:2502.00704 [math.CO], 2025. See p. 4.
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Cf. A211795.
Cf. A226449. - Bruno Berselli, Jun 09 2013
Cf. A005917.

a212133 n = if n == 0 then 0 else (a005917 n + 1) `div` 2
-- Reinhard Zumkeller, Nov 13 2014

t = Compile[{{n, _Integer}},
Module[{s = 0}, (Do[If[Apply[Plus, Rest[Most[Sort[{w, x, y, z}]]]]/2 == (w + x + y + z)/4, s = s + 1], {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
Flatten[Map[{t[#]} &, Range[0, 50]]] (* A212133 *)
(* Peter J. C. Moses, May 01 2012 *)

a(n)=2*n^3-3*n^2+2*n; \\ Joerg Arndt, Jun 22 2012

concat(0, Vec(x*(1 + 4*x + 7*x^2) / (1 - x)^4 + O(x^40))) \\ Colin Barker, Dec 02 2017

a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4).
a(n) = n * (2*n^2 - 3*n + 2). - J. M. Bergot, Jun 22 2012
a(n) = A000384(n) + n*A000384(n-1). - Bruno Berselli, Jun 07 2013
a(n) = (A005917(n) + 1) / 2 for n > 0. - Reinhard Zumkeller, Nov 13 2014
G.f.: x*(1 + 4*x + 7*x^2) / (1 - x)^4. - Colin Barker, Dec 02 2017

Closed form adapted to the offset by Bruno Berselli, Jun 07 2013

cp's OEIS Frontend

A006003 a(n) = n*(n^2 + 1)/2.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

GAP

Haskell

MATLAB

Magma

Magma

Mathematica

Maxima

PARI

PARI

Python

Formula

Extensions

A069778 q-factorial numbers 3!_q.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A212133 Number of (w,x,y,z) with all terms in {1,...,n} and median=mean.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

PARI

Formula

Extensions

A204674 a(n) = 4*n^3 + 5*n^2 + 2*n + 1.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Formula

Extensions

A143690 a(n) = A007318 * [1, 6, 14, 9, 0, 0, 0, ...].

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Sage

Formula

Extensions

A226450 a(n) = n*(3*n^2 - 5*n + 3).

Views

Author

A204674 a(n) = 4n^3 + 5n^2 + 2*n + 1.

A226450 a(n) = n(3n^2 - 5*n + 3).

A226451 a(n) = n(7n^2-12*n+7)/2.