cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-6 of 6 results.

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

Original entry on oeis.org

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

Views

Author

Keywords

Comments

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

Examples

			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
		

References

  • 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).

Crossrefs

Cf. A000330, A000537, A066886, A057587, A027480, A002817 (partial sums).
Cf. A000578 (cubes).
(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.
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).

Programs

  • GAP
    a_n:=List([0..nmax], n->n*(n^2 + 1)/2); # Stefano Spezia, Aug 12 2018
    
  • Haskell
    a006003 n = n * (n ^ 2 + 1) `div` 2
    a006003_list = scanl (+) 0 a005448_list
    -- Reinhard Zumkeller, Jun 20 2013
    
  • MATLAB
    % 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
    
  • Magma
    [n*(n^2 + 1)/2 : n in [0..50]]; // Wesley Ivan Hurt, Sep 11 2015
    
  • Magma
    [Binomial(n,3)+Binomial(n-1,3)+Binomial(n-2,3): n in [2..60]]; // Vincenzo Librandi, Sep 12 2015
    
  • Mathematica
    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 *)
  • Maxima
    a(n):=n*(n^2 + 1)/2$ makelist(a(n), n, 0, nmax); /* Stefano Spezia, Aug 12 2018 */
    
  • PARI
    {a(n) = n * (n^2 + 1) / 2}; /* Michael Somos, Dec 24 2011 */
    
  • PARI
    concat(0, Vec(x*(1+x+x^2)/(x-1)^4 + O(x^20))) \\ Felix Fröhlich, Oct 11 2016
    
  • Python
    def A006003(n): return n*(n**2+1)>>1 # Chai Wah Wu, Mar 25 2024

Formula

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)

Extensions

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

A034262 a(n) = n^3 + n.

Original entry on oeis.org

0, 2, 10, 30, 68, 130, 222, 350, 520, 738, 1010, 1342, 1740, 2210, 2758, 3390, 4112, 4930, 5850, 6878, 8020, 9282, 10670, 12190, 13848, 15650, 17602, 19710, 21980, 24418, 27030, 29822, 32800, 35970, 39338, 42910, 46692, 50690, 54910, 59358, 64040, 68962, 74130
Offset: 0

Views

Author

Stuart M. Ellerstein (ellerstein(AT)aol.com), Apr 21 2000

Keywords

Comments

k such that x^3 + x + k factors over the integers. - James R. Buddenhagen, Apr 19 2005
If a(n)=X [A155977], Y=b(n) [A071253], Z=c(n) [A034262], then X^2+Y^2 = n*Z^3; e.g., if n=3, a(3)=270, b(3)=90, c(3)=30, then 270^2+90^2=3*30^3. - Vincenzo Librandi, Nov 24 2010
From Bruno Berselli, Sep 06 2018: (Start)
After 0, sum of next n even numbers:
... 2, 2
... 4, 6, 10
... 8, 10, 12, 30
.. 14, 16, 18, 20, 68
.. 22, 24, 26, 28, 30, 130
.. 32, 34, 36, 38, 40, 42, 222 etc. (End)
Sequence occurs in the binomial identity Sum_{k = 0..n} a(k)* binomial(n,k)/binomial(n+k,k) = n*(n + 1)/2. Cf. A092181 and A155977. - Peter Bala, Feb 12 2019
For n >= 2, a(n) is the sum of the numbers in the 1st and last columns of an n X n square array whose elements are the numbers from 1..n^2, listed in increasing order by rows. - Wesley Ivan Hurt, May 17 2021

Crossrefs

Programs

Formula

a(n) = 2*A006003(n).
a(n) = A002522(n)*A001477(n). - Zerinvary Lajos, Apr 20 2008
For n>1, a(n) = floor(n^5/(n^2-1)). - Gary Detlefs, Feb 10 2010
Sum_{n>=1} 1/a(n) = 0.6718659855... = gamma + Re psi(1+i) = A001620+A248177. [Borwein et al., J. Math. Anal. Appl. 316 (2006) 328]. - R. J. Mathar, Jul 17 2012
a(n) = -a(-n) for all n in Z. - Michael Somos, Jul 11 2017
G.f.: 2*x*(x^2+x+1)/(x-1)^4. - Alois P. Heinz, Oct 08 2022
E.g.f.: x*(2 + 3*x + x^2)*exp(x). - Stefano Spezia, Jun 20 2024

A113319 Decimal expansion of Sum_{k>=0} 1/(k^2+1).

Original entry on oeis.org

2, 0, 7, 6, 6, 7, 4, 0, 4, 7, 4, 6, 8, 5, 8, 1, 1, 7, 4, 1, 3, 4, 0, 5, 0, 7, 9, 4, 7, 5, 0, 0, 0, 0, 4, 9, 0, 4, 4, 5, 6, 5, 6, 2, 6, 6, 4, 0, 3, 8, 1, 6, 6, 6, 5, 5, 7, 5, 0, 6, 2, 4, 8, 4, 3, 9, 0, 1, 5, 4, 2, 4, 7, 9, 1, 8, 3, 1, 0, 0, 2, 1, 7, 4, 3, 5, 6, 5, 5, 5, 1, 7, 5, 9, 3, 9, 5, 4, 9, 1, 8, 7, 6, 5, 1
Offset: 1

Views

Author

Benoit Cloitre, Jan 07 2006

Keywords

Comments

Known to be transcendental. After n=2 it is the same as A100554(n).
Imaginary part of psi(I) (for the real part, see A248177). - Stanislav Sykora, Oct 03 2014

Examples

			2.076674047468581174134050794750000490445656266403816665575062484390...
		

References

  • Michel Waldschmidt, Elliptic functions and transcendance, Surveys in number theory, 143-188, Dev. Math., 17, Springer, New York, 2008.

Crossrefs

Cf. A013661 (Sum_{i>=1} 1/i^2), A232883 (Sum_{i>=0} 1/(2*i^2+1)). - Bruno Berselli, Dec 02 2013
Cf. A248177.
Essentially the same as A100554 and A259171.

Programs

Formula

Equals 1/2 + Pi /(2*tanh(Pi)).
Equals 1+Integral_{x >= 0} sin(x)/(exp(x)-1) dx. - Robert FERREOL, Jan 12 2016.
Equals Sum_{k>=0} (-1)^(k+1)*(zeta(2*k) - 1). - Amiram Eldar, Apr 28 2025

Extensions

Offset changed from 0 to 1 by Bruno Berselli, Dec 02 2013

A334925 G.f.: Sum_{k>=1} x^(k*(k^2 + 1)/2) / (1 - x^(k*(k^2 + 1)/2)).

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 1, 1, 2, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2
Offset: 1

Views

Author

Ilya Gutkovskiy, May 16 2020

Keywords

Comments

Number of divisors of n of the form k*(k^2 + 1)/2 (A006003).

Crossrefs

Programs

  • Mathematica
    nmax = 100; CoefficientList[Series[Sum[x^(k (k^2 + 1)/2)/(1 - x^(k (k^2 + 1)/2)), {k, 1, nmax}], {x, 0, nmax}], x] // Rest

Formula

Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 2 * (A248177 + A001620) = 1.343731... . - Amiram Eldar, Jan 02 2024

A347292 Decimal expansion of maximum of real part of the function psi(cos(x) + i*sin(x)).

Original entry on oeis.org

2, 9, 1, 9, 5, 4, 8, 0, 8, 6, 1, 9, 8, 8, 0, 1, 9, 0, 0, 0, 0, 4, 4, 3, 3, 7, 8, 2, 0, 0, 7, 3, 7, 3, 3, 0, 0, 8, 7, 8, 6, 8, 3, 3, 2, 7, 6, 0, 3, 5, 8, 2, 0, 3, 7, 4, 3, 9, 6, 4, 1, 5, 0, 3, 9, 9, 5, 8, 4, 4, 9, 2, 6, 1, 8, 5, 7, 8, 3, 8, 3, 0, 1, 7, 2, 0, 8, 7, 3, 1, 6, 3, 7, 5, 8, 2, 0, 2, 8, 7, 4, 0, 3, 7, 2
Offset: 0

Views

Author

Artur Jasinski, Feb 09 2022

Keywords

Comments

psi is the digamma function.
Values of psi(cos(x) + i*sin(x)) change in range from -gamma to this constant where gamma is the Euler-Mascheroni constant A001620.
This maxima occurs for x = (2k+1)*Pi +- 0.941223380428505630122594...

Examples

			0.2919548086198801900004433...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[FindMaximum[Re[PolyGamma[0,Cos[x] + I Sin[x]]], {x,2}, WorkingPrecision -> 105][[1]]][[1]]

Extensions

Last digit corrected by Vaclav Kotesovec, Sep 02 2025

A358045 Decimal expansion of 2*(gamma + Re(Psi(i))).

Original entry on oeis.org

1, 3, 4, 3, 7, 3, 1, 9, 7, 1, 0, 4, 8, 0, 1, 9, 6, 7, 5, 7, 5, 6, 7, 8, 1, 1, 4, 5, 6, 0, 8, 6, 2, 6, 3, 0, 7, 0, 3, 6, 8, 4, 4, 6, 1, 5, 4, 0, 6, 9, 3, 0, 4, 4, 4, 0, 7, 7, 5, 1, 3, 9, 1, 8, 0, 0, 7, 5, 4, 5, 6, 8, 3, 0, 7, 3, 8, 9, 0, 6, 4, 8, 6, 4, 0, 8, 3
Offset: 1

Views

Author

Martin Renner, Dec 20 2022

Keywords

Comments

Here gamma = 0.5772... (A001620) is Euler's constant and Re(Psi(i)) = 0.0946... (A248177) with the psi function or the digamma function Psi(x) = d/dx log(Gamma(x)) = (1/Gamma(x))*d/dx Gamma(x) as the logarithmic derivative of the gamma function.
Value of the series 1/1 + 1/(2+3) + 1/(4+5+6) + 1/(7+8+9+10) + ... = Sum_{k>=1} 2/(k*(k^2+1)) = Sum_{k>=1} 1/A006003(k), i.e., the sum of the reciprocals of the sum of the next n natural numbers. Presumably, the question of finding the value of this series was first posed in 1889 by the Dutch mathematician Pieter Hendrik Schoute (1846-1913) and repeated in 1905.

Examples

			1.343731971048019675756781145608...
		

Crossrefs

Essentially the same as A340012.

Programs

  • Maple
    2*(gamma+Re(Psi(I))); evalf(%,200);
  • Mathematica
    RealDigits[2*(EulerGamma + Re[PolyGamma[0, I]]), 10, 120][[1]] (* Amiram Eldar, Dec 20 2022 *)
Showing 1-6 of 6 results.