A022521 -id:A022521 - cp's OEIS frontend

A000584 Fifth powers: a(n) = n^5.

0, 1, 32, 243, 1024, 3125, 7776, 16807, 32768, 59049, 100000, 161051, 248832, 371293, 537824, 759375, 1048576, 1419857, 1889568, 2476099, 3200000, 4084101, 5153632, 6436343, 7962624, 9765625, 11881376, 14348907, 17210368, 20511149

Offset: 0

N. J. A. Sloane

Totally multiplicative sequence with a(p) = p^5 for prime p. - Jaroslav Krizek, Nov 01 2009
The binomial transform yields A059338. The inverse binomial transform yields the (finite) 0, 1, 30, 150, 240, 120, the 5th row in A019538 and A131689. - R. J. Mathar, Jan 16 2013
Equals sum of odd numbers from n^2*(n-1)+1 (A100104) to n^2*(n+1)-1 (A003777). - Bruno Berselli, Mar 14 2014
a(n) mod 10 = n mod 10. - Reinhard Zumkeller, May 10 2014
Numbers of the form a(n) + a(n+1) + ... + a(n+k) are nonprime for all n, k>=0; this can be proved by the method indicated in the comment in A256581. - Vladimir Shevelev and Peter J. C. Moses, Apr 04 2015

R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics. Addison-Wesley, Reading, MA, 1990, p. 255; 2nd. ed., p. 269. Worpitzky's identity (6.37).
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).

Franklin T. Adams-Watters, Table of n, a(n) for n = 0..500
Brady Haran and Simon Pampena, Fifth Root Trick, Numberphile video (2014)
Simon Plouffe, Approximations de séries génératrices et quelques conjectures, Dissertation, Université du Québec à Montréal, 1992; arXiv:0911.4975 [math.NT], 2009.
Simon Plouffe, 1031 Generating Functions, Appendix to Thesis, Montreal, 1992
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Partial sums give A000539.
Cf. A000012, A001477, A000290, A000578, A000583, A062392, A022521 (first differences), A008292, A173018, A123125.
Cf. A013663, A162624, A267316.

a000584 = (^ 5)  -- Reinhard Zumkeller, Nov 11 2012

Range[0,50]^5 (* Vladimir Joseph Stephan Orlovsky, Feb 20 2011 *)

makelist(n^5, n, 0, 30); /* Martin Ettl, Nov 12 2012 */

a(n)=n^5 \\ Charles R Greathouse IV, Jul 28 2015

[n**5 for n in range(30)]  # Zerinvary Lajos, Jun 03 2009

G.f.: x*(1+26*x+66*x^2+26*x^3+x^4) / (x-1)^6. [Simon Plouffe in his 1992 dissertation]
Multiplicative with a(p^e) = p^(5e). - David W. Wilson, Aug 01 2001
E.g.f.: exp(x)*(x+15*x^2+25*x^3+10*x^4+x^5). - Geoffrey Critzer, Jun 12 2013
a(n) = 5*a(n-1) - 10* a(n-2) + 10*a(n-3) - 5*a(n-4) + a(n-5) + 120. - Ant King, Sep 23 2013
a(n) = n + Sum_{j=0..n-1}{k=1..4}binomial(5,k)*j^(5-k). - Patrick J. McNab, Mar 28 2016
From Kolosov Petro, Oct 22 2018: (Start)
a(n) = Sum_{k=1..n} A300656(n,k).
a(n) = Sum_{k=0..n-1} A300656(n,k). (End)
a(n) = Sum_{k=1..5} Eulerian(5, k)*binomial(n+5-k, 5), with Eulerian(5, k) = A008292(5, k), the numbers 1, 26, 66, 26, 1, for n >= 0. Worpitzki's identity for powers of 5. See. e.g., Graham et al., eq. (6, 37) (using A173018, the row reversed version of A123125). - Wolfdieter Lang, Jul 17 2019
From Amiram Eldar, Oct 08 2020: (Start)
Sum_{n>=1} 1/a(n) = zeta(5) (A013663).
Sum_{n>=1} (-1)^(n+1)/a(n) = 15*zeta(5)/16 (A267316). (End)

More terms from Henry Bottomley, Jun 21 2001

A005900 Octahedral numbers: a(n) = n(2n^2 + 1)/3.

Original entry on oeis.org

0, 1, 6, 19, 44, 85, 146, 231, 344, 489, 670, 891, 1156, 1469, 1834, 2255, 2736, 3281, 3894, 4579, 5340, 6181, 7106, 8119, 9224, 10425, 11726, 13131, 14644, 16269, 18010, 19871, 21856, 23969, 26214, 28595, 31116, 33781, 36594, 39559, 42680

Offset: 0

N. J. A. Sloane

Series reversion of g.f.: A(x) is Sum_{n>0} - A066357(n)(-x)^n.
Partial sums of centered square numbers A001844. - Paul Barry, Jun 26 2003
Also as a(n) = (1/6)*(4n^3 + 2n), n>0: structured tetragonal diamond numbers (vertex structure 5) (cf. A000447 - structured diamonds); and structured trigonal anti-prism numbers (vertex structure 5) (cf. A100185 - structured anti-prisms). Cf. A100145 for more on structured polyhedral numbers. - James A. Record (james.record(AT)gmail.com), Nov 07 2004
Schlaefli symbol for this polyhedron: {3,4}.
If X is an n-set and Y and Z are disjoint 2-subsets of X then a(n-4) is equal to the number of 5-subsets of X intersecting both Y and Z. - Milan Janjic, Aug 26 2007
Starting with 1 = binomial transform of [1, 5, 8, 4, 0, 0, 0, ...] where (1, 5, 8, 4) = row 3 of the Chebyshev triangle A081277. - Gary W. Adamson, Jul 19 2008
a(n) = largest coefficient of (1 + ... + x^(n-1))^4. - R. H. Hardin, Jul 23 2009
Convolution square root of (1 + 6x + 19x^3 + ...) = (1 + 3x + 5x^2 + 7x^3 + ...) = A005408(x). - Gary W. Adamson, Jul 27 2009
Starting with offset 1 = the triangular series convolved with [1, 3, 4, 4, 4, ...]. - Gary W. Adamson, Jul 28 2009
One of the 5 Platonic polyhedral (tetrahedral, cube, octahedral, dodecahedral, and icosahedral) numbers (cf. A053012). - Daniel Forgues, May 14 2010
Let b be any product of four different primes. Then the divisor lattice of b^n is of width a(n+1). - Jean Drabbe, Oct 13 2010
Arises in Bezdek's proof on contact numbers for congruent sphere packings (see preprint). - Jonathan Vos Post, Feb 08 2011
Euler transform of length 2 sequence [6, -2]. - Michael Somos, Mar 27 2011
a(n+1) is the number of 2 X 2 matrices with all terms in {0,1,...,n} and (sum of terms) = 2n. - Clark Kimberling, Mar 19 2012
a(n) is the number of semistandard Young tableaux over all partitions of 3 with maximal element <= n. - Alois P. Heinz, Mar 22 2012
Self convolution of the odd numbers. - Reinhard Zumkeller, Apr 04 2012
a(n) is the number of (w,x,y,z) with all terms in {1,...,n} and w+x=y+z; also the number of (w,x,y,z) with all terms in {0,...,n} and |w-x|<=y. - Clark Kimberling, Jun 02 2012
The sequence is the third partial sum of (0, 1, 3, 4, 4, 4, ...). - Gary W. Adamson, Sep 11 2015
a(n) is the number of join-irreducible elements in the Weyl group of type B_n with respect to the strong Bruhat order. - Rafael Mrden, Aug 26 2020
Number of unit octahedra contained in an n-scale octahedron composed of a tetrahedral-octahedral honeycomb. The number of unit tetrahedra in it is 8*A000292(n-1) = 4*(n^3 - n)/3. Also, the number of unit tetrahedra and unit octahedra contained in an n-scale tetrahedron composed of a tetrahedral-octahedral honeycomb is respectively A006527(n) = (n^3 + 2*n)/3 and A000292(n-1) = (n^3 - n)/6. - Jianing Song, Feb 24 2025

			G.f. = x + 6*x^2 + 19*x^3 + 44*x^4 + 85*x^5 + 146*x^6 + 231*x^7 + ...

John H. Conway and Richard K. Guy, The Book of Numbers, New York: Springer-Verlag, 1996. See p. 50.
H. S. M. Coxeter, Polyhedral numbers, pp. 25-35 of R. S. Cohen, J. J. Stachel and M. W. Wartofsky, eds., For Dirk Struik: Scientific, historical and political essays in honor of Dirk J. Struik, Reidel, Dordrecht, 1974.
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
X. Acloque, Polynexus Numbers and other mathematical wonders [broken link]
Karoly Bezdek, Contact numbers for congruent sphere packings, arXiv:1102.1198 [math.MG], 2011.
Matteo Cavaleri and Alfredo Donno, Some degree and distance-based invariants of wreath products of graphs, arXiv:1805.08989 [math.CO], 2018.
Y-h. Guo, Some n-Color Compositions, J. Int. Seq. 15 (2012) 12.1.2, eq (5), m=2.
Milan Janjic, Two Enumerative Functions
Milan Janjić, On Restricted Ternary Words and Insets, arXiv:1905.04465 [math.CO], 2019.
Muhammad Fatih Killik and Bünyamin Şahi̇n, Further Results on Level Matrix, Int'l J. Math. Combin. (2024) Vol 4, 68-74. See p. 71.
Hyun Kwang Kim, On Regular Polytope Numbers, Proc. Amer. Math. Soc., 131 (2002), 65-75.
Hankyung Ko, Volodymyr Mazorchuk and Rafael Mrđen, Join operation for the Bruhat order and Verma modules, arXiv:2109.01067 [math.RT], 2021. See Remark 5.10 p. 19.
A. Lascoux and M.-P. Schützenberger, Treillis et bases des groupes de Coxeter, Electron. J. Combin. 3 (1996), #R27.
T. P. Martin, Shells of atoms, Phys. Reports, 273 (1996), 199-241, eq. (11).
J. K. Merikoski, R. Kumar and R. A. Rajput, Upper bounds for the largest eigenvalue of a bipartite graph, Electronic Journal of Linear Algebra ISSN 1081-3810, A publication of the International Linear Algebra Society, Volume 26, pp. 168-176, April 2013.
Simon Plouffe, Approximations de séries génératrices et quelques conjectures, Dissertation, Université du Québec à Montréal, 1992; arXiv:0911.4975 [math.NT], 2009.
Simon Plouffe, 1031 Generating Functions, Appendix to Thesis, Montreal, 1992
B. K. Teo and N. J. A. Sloane, Magic numbers in polygonal and polyhedral clusters, Inorgan. Chem. 24 (1985), 4545-4558.
Eric Weisstein's World of Mathematics, Octahedral Number.
Index entries for two-way infinite sequences
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Sums of 2 consecutive terms give A001845. Cf. A001844.
1/12*t*(n^3-n)+n for t = 2, 4, 6, ... gives A004006, A006527, A006003, A005900, A004068, A000578, A004126, A000447, A004188, A004466, A004467, A007588, A062025, A063521, A063522, A063523.
Cf. A022521.
Cf. A081277.
Row n=3 of A210391. - Alois P. Heinz, Mar 22 2012
Cf. A005408.
Cf. A053676, A053677, A053678.
Cf. A002061.
Cf. A000292 (tetrahedral numbers), A000578 (cubes), A006566 (dodecahedral numbers), A006564 (icosahedral numbers).
Similar sequence: A014820(n-1) (m=4), A069038 (m=5), A069039 (m=6), A099193(m=7), A099195 (m=8), A099196 (m=9), A099197 (m=10).

a005900 n = sum $ zipWith (*) odds $ reverse odds
            where odds = take n a005408_list
a005900_list = scanl (+) 0 a001844_list
-- Reinhard Zumkeller, Jun 16 2013, Apr 04 2012

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

I:=[0,1,6,19]; [n le 4 select I[n] else 4*Self(n-1)-6*Self(n-2)+4*Self(n-3)-Self(n-4): n in [1..50]]; // Vincenzo Librandi, Sep 12 2015

al:=proc(s,n) binomial(n+s-1,s); end; be:=proc(d,n) local r; add( (-1)^r*binomial(d-1,r)*2^(d-1-r)*al(d-r,n), r=0..d-1); end; [seq(be(3,n), n=0..100)];
A005900:=(z+1)**2/(z-1)**4; # Simon Plouffe in his 1992 dissertation
with(combinat): seq(fibonacci(4,2*n)/12, n=0..40); # Zerinvary Lajos, Apr 21 2008

Table[(2n^3+n)/3, {n,0,40}] (* or *) LinearRecurrence[{4,-6,4,-1}, {0,1,6,19},50] (* Harvey P. Dale, Oct 10 2013 *)
CoefficientList[Series[x (1 + x)^2/(1 - x)^4, {x, 0, 45}], x] (* Vincenzo Librandi, Sep 12 2015 *)

makelist(n*(2*n^2+1)/3, n, 0, 20); /* Martin Ettl, Jan 07 2013 */

PARI
```
{a(n) = n*(2*n^2+1)/3};
```

concat([0],Vec(x*(1 + x)^2/(1 - x)^4 + O(x^50))) \\ Indranil Ghosh, Mar 16 2017

def a(n): return n*(2*n*n + 1)//3
print([a(n) for n in range(41)]) # Michael S. Branicky, Sep 03 2021

a(n) = 1^2 + 2^2 + ... + (n-1)^2 + n^2 + (n-1)^2 + ... + 2^2 + 1^2. - Amarnath Murthy, May 28 2001
G.f.: x * (1 + x)^2 / (1 - x)^4. a(n) = -a(-n) = (2*n^3 + n) / 3.
a(n) = ( ((n+1)^5-n^5) - (n^5-(n-1)^5) )/30. - Xavier Acloque, Oct 17 2003
a(n) is the sum of the products pq, where p and q are both positive and odd and p + q = 2n, e.g., a(4) = 7*1 + 5*3 + 3*5 + 1*7 = 44. - Jon Perry, May 17 2005
a(n) = 4*binomial(n,3) + 4*binomial(n,2) + binomial(n,1). - Mitch Harris, Jul 06 2006
a(n) = binomial(n+2,3) + 2*binomial(n+1,3) + binomial(n,3), (this pair generalizes; see A014820, the 4-cross polytope numbers).
Sum_{n>=1} 1/a(n) = 3*gamma + 3*Psi((I*(1/2))*sqrt(2)) - (1/2)*(3*I)*Pi*coth((1/2)*Pi*sqrt(2)) - (1/2)*(3*I)*sqrt(2) = A175577, where I=sqrt(-1). - Stephen Crowley, Jul 14 2009
a(n) = A035597(n)/2. - J. M. Bergot, Jun 11 2012
a(n) = A000578(n) - 2*A000292(n-1) for n>0. - J. M. Bergot, Apr 05 2014
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4), n>3. - Wesley Ivan Hurt, Sep 11 2015
E.g.f.: (1/3)*x*(3 + 6*x + 2*x^2)*exp(x). - Ilya Gutkovskiy, Mar 16 2017
a(n) = (A002061(A002061(n+1)) - A002061(A002061(n)))/6. - Daniel Poveda Parrilla, Jun 10 2017
a(n) = 6*a(n-1)/(n-1) + a(n-2) for n > 1. - Seiichi Manyama, Jun 06 2018
Sum_{n >= 1} (-1)^(n+1)/(a(n)*a(n+1)) = 6*log(2) - 4 = 1/(6 + 2/(6 + 6/(6 + ... + n*(n-1)/(6 + ...)))). See A142983. - Peter Bala, Mar 06 2024

A047969 Square array of nexus numbers a(n,k) = (n+1)^(k+1) - n^(k+1) (n >= 0, k >= 0) read by upwards antidiagonals.

Original entry on oeis.org

1, 1, 1, 1, 3, 1, 1, 5, 7, 1, 1, 7, 19, 15, 1, 1, 9, 37, 65, 31, 1, 1, 11, 61, 175, 211, 63, 1, 1, 13, 91, 369, 781, 665, 127, 1, 1, 15, 127, 671, 2101, 3367, 2059, 255, 1, 1, 17, 169, 1105, 4651, 11529, 14197, 6305, 511, 1, 1, 19, 217, 1695, 9031

Offset: 0

N. J. A. Sloane

If each row started with an initial 0 (i.e., a(n,k) = (n+1)^k - n^k) then each row would be the binomial transform of the preceding row. - Henry Bottomley, May 31 2001
a(n-1, k-1) is the number of ordered k-tuples of positive integers such that the largest of these integers is n. - Alford Arnold, Sep 07 2005
From Alford Arnold, Jul 21 2006: (Start)
The sequences in A047969 can also be calculated using the Eulerian Array (A008292) and Pascal's Triangle (A007318) as illustrated below: (cf. A101095).
  1       1       1       1       1       1
  1       1       1       1       1       1
  -----------------------------------------
  1       2       3       4       5       6
          1       2       3       4       5
  1       3       5       7       9      11
  -----------------------------------------
  1       3       6      10      15      21
          4      12      24      40      60
                  1       3       6      10
  1       7      19      37      61      91
  -----------------------------------------
  1       4      10      20      35      56
         11      44     110     220     385
                 11      44     110     220
                          1       4      10
  1      15      65     175     369     671
  -----------------------------------------  (End)
From Peter Bala, Oct 26 2008: (Start)
The above remarks of Alford Arnold may be summarized by saying that (the transpose of) this array is the Hilbert transform of the triangle of Eulerian numbers A008292 (see A145905 for the definition of the Hilbert transform). In this context, A008292 is best viewed as the array of h-vectors of permutohedra of type A. See A108553 for the Hilbert transform of the array of h-vectors of type D permutohedra. Compare this array with A009998.
The polynomials n^k - (n-1)^k, k = 1,2,3,..., which give the nonzero entries in the columns of this array, satisfy a Riemann hypothesis: their zeros lie on the vertical line Re s = 1/2 in the complex plane. See A019538 for the connection between the polynomials n^k - (n-1)^k and the Stirling polynomials of the simplicial complexes dual to the type A permutohedra.
(End)
Empirical: (n+1)^(k+1) - n^(k+1) is the number of first differences of length k+1 arrays of numbers in 0..n, k > 0. - R. H. Hardin, Jun 30 2013
a(n-1, k-1) is the number of bargraphs of width k and height n. Examples: a(1,2) = 7 because we have [1,1,2], [1,2,1], [2,1,1], [1,2,2], [2,1,2], [2,2,1], and [2,2,2]; a(2,1) = 5 because we have [1,3], [2,3], [3,1], [3,2], and [3,3] (bargraphs are given as compositions). This comment is equivalent to A. Arnold's Sep 2005 comment. - Emeric Deutsch, Jan 30 2017

			Array a begins:
  [n\k][0  1   2    3    4   5  6  ...
  [0]   1  1   1    1    1   1  1  ...
  [1]   1  3   7   15   31  63  ...
  [2]   1  5  19   65  211  ...
  [3]   1  7  37  175  ...
  ...
Triangle T begins:
  n\m   0   1    2     3     4      5      6      7      8     9  10 ...
  0:    1
  1:    1   1
  2:    1   3    1
  3:    1   5    7     1
  4:    1   7   19    15     1
  5:    1   9   37    65    31      1
  6:    1  11   61   175   211     63      1
  7:    1  13   91   369   781    665    127      1
  8:    1  15  127   671  2101   3367   2059    255      1
  9:    1  17  169  1105  4651  11529  14197   6305    511     1
  10:   1  19  217  1695  9031  31031  61741  58975  19171  1023   1
  ...  - _Wolfdieter Lang_, May 07 2021

J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

T. D. Noe, Rows n = 0..100 of triangle, flattened
A. Blecher, C. Brennan, A. Knopfmacher and Helmut Prodinger, The height and width of bargraphs, Discrete Applied Math. 180, (2015), 36-44.
Eric Weisstein's World of Mathematics, Nexus Number

Cf. A047970.
Cf. A009998, A108553 (Hilbert transform of array of h-vectors of type D permutohedra), A145904, A145905.
Row n sequences of array a: A000012, A000225(k+1), A001047(k+1), A005061(k+1), A005060(k+1), A005062(k+1), A016169(k+1), A016177(k+1), A016185(k+1), A016189(k+1), A016195(k+1), A016197(k+1).
Column k sequences of array a: (nexus numbers): A000012, A005408, A003215, A005917(n+1), A022521, A022522, A022523, A022524, A022525, A022526, A022527, A022528.
Cf. A343237 (row reversed triangle).

Flatten[Table[n = d - e; k = e; (n + 1)^(k + 1) - n^(k + 1), {d, 0, 100}, {e, 0, d}]] (* T. D. Noe, Feb 22 2012 *)

T(n,m):=if m=0 then 1 else sum(k!*(-1)^(m+k)*stirling2(m,k)*binomial(n+k-1,n),k,0,m); /* Vladimir Kruchinin, Jan 28 2018 */

From Vladimir Kruchinin: (Start)
O.g.f. of e.g.f of rows of array: ((1-x)*exp(y))/(1-x*exp(y))^2.
T(n,m) = Sum_{k=0..m} k!*(-1)^(m+k)*Stirling2(m,k)*C(n+k-1,n), T(n,0)=1.(End)
From Wolfdieter Lang, May 07 2021: (Start)
T(n,m) = a(n-m,m) = (n-m+1)^(m+1) - (n-m)^(m+1), n >= 0, m = 0, 1,..., n.
O.g.f. column k of the array: polylog(-(k+1), x)*(1-x)/x. See the Peter Bala comment above, and the Eulerian triangle A008292 formula by Vladeta Jovovic, Sep 02 2002.
E.g.f. of e.g.f. of row of the array: exp(y)*(1 + x*(exp(y) - 1))*exp(x*exp(y)).
O.g.f. of triangle's exponential row polynomials R(n, y) = Sum_{m=0} T(n, m)*(y^m)/m!: G(x, y) = exp(x*y)*(1 - x)/(1 - x*exp(x*y))^2. (End)

A022522 Nexus numbers (n+1)^6 - n^6.

Original entry on oeis.org

1, 63, 665, 3367, 11529, 31031, 70993, 144495, 269297, 468559, 771561, 1214423, 1840825, 2702727, 3861089, 5386591, 7360353, 9874655, 13033657, 16954119, 21766121, 27613783, 34655985, 43067087, 53037649, 64775151, 78504713, 94469815, 112933017, 134176679

Offset: 0

N. J. A. Sloane, Jun 14 1998

J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.

Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Nexus Number
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Column k=5 of array A047969.
Beginning with n=1, a subsequence of A181125 (difference of two positive 6th powers). - Mathew Englander, Jun 01 2014
Cf. A008292, A022521, A022523.

List([0..30], n-> (n+1)^6 - n^6); # G. C. Greubel, Aug 28 2019

[(n+1)^6-n^6: n in [0..30]]; // Vincenzo Librandi, Nov 22 2011

A022522:=n->(n + 1)^6 - n^6; seq(A022522(n), n=0..30); # Wesley Ivan Hurt, Jan 30 2014

Table[(n+1)^6-n^6, {n,0,30}] (* Vincenzo Librandi, Nov 22 2011 *)

a(n)=(n+1)^6-n^6 \\ Charles R Greathouse IV, Sep 24 2015

[(n+1)^6 -n^6 for n in (0..30)] # G. C. Greubel, Aug 28 2019

G.f.: (1+x)*(1+56*x+246*x^2+56*x^3+x^4)/(1-x)^6. - Colin Barker, Dec 21 2012
a(n) = A005408(n) * A243201(n). - Mathew Englander, Jun 06 2014
a(n) = A001014(n+1) - A001014(n). - Wesley Ivan Hurt, Jun 06 2014
E.g.f.: (1 +62*x +270*x^2 +260*x^3 +75*x^4 +6*x^5)*exp(x). - G. C. Greubel, Aug 28 2019
G.f.: polylog(-6, x)*(1-x)/x. See the g.f. of Colin Barker (with expanded numerator), and the g.f. of the rows of A008292 by Vladeta Jovovic, Sep 02 2002. - Wolfdieter Lang, May 10 2021

More terms from Colin Barker, Dec 21 2012

A101096 Third differences of fifth powers (A000584).

Original entry on oeis.org

1, 29, 150, 390, 750, 1230, 1830, 2550, 3390, 4350, 5430, 6630, 7950, 9390, 10950, 12630, 14430, 16350, 18390, 20550, 22830, 25230, 27750, 30390, 33150, 36030, 39030, 42150, 45390, 48750, 52230, 55830, 59550, 63390, 67350, 71430, 75630, 79950, 84390, 88950

Offset: 1

Cecilia Rossiter, Dec 15 2004

Original Name: Shells (nexus numbers) of shells of shells of the power of 5.

For n>=3 a(n) is equal to the number of functions f:{1,2,3,4,5}->{1,2,...,n} such that Im(f) contains 3 fixed elements. - Aleksandar M. Janjic and Milan Janjic, Feb 24 2007

Danny Rorabaugh, Table of n, a(n) for n = 1..10000
Milan Janjic, Enumerative Formulas for Some Functions on Finite Sets.
David J. Pengelley, The bridge between the continuous and the discrete via original sources in Study the Masters: The Abel-Fauvel Conference [pdf], Kristiansand, 2002, (ed. Otto Bekken et al.), National Center for Mathematics Education, University of Gothenburg, Sweden, 2003.
Cecilia Rossiter, Depictions, Explorations and Formulas of the Euler/Pascal Cube [Archive machine link]
Cecilia Rossiter, Depictions, Explorations and Formulas of the Euler/Pascal Cube [Cached copy, May 15 2013]
Eric Weisstein, Link to section of MathWorld: Worpitzky's Identity of 1883.
Eric Weisstein, Link to section of MathWorld: Eulerian Number.
Eric Weisstein, Link to section of MathWorld: Nexus number.
Eric Weisstein, Link to section of MathWorld: Finite Differences.
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. A069477.
Third differences of A000584, second differences of A022521, and first differences of A068236.
Cf. A101095 for other sequences related to MagicNKZ.
Cf. A001844.

m:=40; R:=PowerSeriesRing(Integers(), m); Coefficients(R!( x*(x^4+26*x^3+66*x^2+26*x+1)/(1-x)^3)); // G. C. Greubel, Dec 01 2018

MagicNKZ=Sum[(-1)^j*Binomial[n+1-z, j]*(k-j+1)^n, {j, 0, k+1}];Table[MagicNKZ, {n, 5, 5}, {z, 3, 3}, {k, 0, 34}]
CoefficientList[Series[(-z^4-26z^3-66z^2-26z-1)/(z-1)^3, {z, 0, 200}], z] (* Vladimir Joseph Stephan Orlovsky, Jun 19 2011 *)
Join[{1,29},Differences[Range[0,40]^5,3]] (* or *) LinearRecurrence[{3,-3,1},{1,29,150,390,750},40] (* Harvey P. Dale, Feb 02 2017 *)

a(n)=if(n>2,60*n^2-180*n+150,28*n-27) \\ Charles R Greathouse IV, Oct 11 2015

[sum([(-1)^j*binomial(3, j)*(k-j+1)^5 for j in range(min(k+2,4))]) for k in range(40)] # Danny Rorabaugh, Apr 27 2015

a(k+1) = MagicNKZ(5,k,3) where MagicNKZ(n,k,z) = Sum_{j=0..k+1} (-1)^j*binomial(n+1-z,j)*(k-j+1)^n. (Cf. A101095.)
a(n+1) = 30*(1 - 2*n + 2*n^2) for n>2.
a(n+3) = A069477(n). - Vladimir Joseph Stephan Orlovsky, Jun 19 2011
G.f.: x*(x^4+26*x^3+66*x^2+26*x+1)/(1-x)^3. - Colin Barker, Oct 17 2012
Sum_{n>=1} 1/a(n) = (Pi/60)*tanh(Pi/2) + 871/870. - Amiram Eldar, Jan 27 2022

MagicNKZ material edited and SeriesAtLevelR material removed by Danny Rorabaugh, Apr 27 2015

A068236 First differences of (n+1)^5-n^5.

Original entry on oeis.org

30, 180, 570, 1320, 2550, 4380, 6930, 10320, 14670, 20100, 26730, 34680, 44070, 55020, 67650, 82080, 98430, 116820, 137370, 160200, 185430, 213180, 243570, 276720, 312750, 351780, 393930, 439320, 488070, 540300, 596130, 655680, 719070, 786420, 857850, 933480

Offset: 0

Eli McGowan (ejmcgowa(AT)mail.lakeheadu.ca), Mar 25 2002

For n>=0, a(n) is equal to the number of functions f:{1,2,3,4,5}->{1,2,...,n+2} such that Im(f) contains 2 fixed elements. - Aleksandar M. Janjic and Milan Janjic, Feb 24 2007

Colin Barker, Table of n, a(n) for n = 0..1000
O. Bagdasar, On some functions involving the lcm and gcd of integer tuples, Scientific Publications of the State University of Novi Pazar, Appl. Maths. Inform. and Mech., Vol. 6, 2 (2014), 91--100.
Milan Janjic, Enumerative Formulas for Some Functions on Finite Sets
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Cf. A022521 ((n+1)^5-n^5), A000584 (5th powers), A005900 (octahedral numbers).

Table[20*n^3 + 10*n, {n, 1, 100}] (* Vladimir Joseph Stephan Orlovsky, Jun 19 2011 *)
Differences[#[[2]]-#[[1]]&/@Partition[Range[0,40]^5,2,1]] (* or *) LinearRecurrence[{4,-6,4,-1},{30,180,570,1320},40] (* Harvey P. Dale, Jun 05 2019 *)

Vec(30*(x+1)^2 / (x-1)^4 + O(x^100)) \\ Colin Barker, Dec 13 2014

a(n) = (n+2)^5-2*(n+1)^5+n^5.
a(n) = 30*A005900(n+1). - R. J. Mathar, Sep 02 2008
a(n) = 4*a(n-1)-6*a(n-2)+4*a(n-3)-a(n-4). - Colin Barker, Dec 13 2014
G.f.: 30*(x+1)^2 / (x-1)^4. - Colin Barker, Dec 13 2014

A101104 a(1)=1, a(2)=12, a(3)=23, and a(n)=24 for n>=4.

Original entry on oeis.org

1, 12, 23, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24

Offset: 1

Cecilia Rossiter, Dec 15 2004

Original name: The first summation of row 4 of Euler's triangle - a row that will recursively accumulate to the power of 4.

D. J. Pengelley, The bridge between the continuous and the discrete via original sources in Study the Masters: The Abel-Fauvel Conference [pdf], Kristiansand, 2002, (ed. Otto Bekken et al), National Center for Mathematics Education, University of Gothenburg, Sweden, in press.
C. Rossiter, Depictions, Explorations and Formulas of the Euler/Pascal Cube [Dead link]
C. Rossiter, Depictions, Explorations and Formulas of the Euler/Pascal Cube [Cached copy, May 15 2013]
Eric Weisstein, Link to section of MathWorld: Worpitzky's Identity of 1883
Eric Weisstein, Link to section of MathWorld: Eulerian Number
Eric Weisstein, Link to section of MathWorld: Nexus number
Eric Weisstein, Link to section of MathWorld: Finite Differences
Index entries for linear recurrences with constant coefficients, signature (1).

For other sequences based upon MagicNKZ(n,k,z):
..... |  n = 1  |  n = 2  |  n = 3  |  n = 4  |  n = 5  |  n = 6  |  n = 7
---------------------------------------------------------------------------
z = 0 | A000007 | A019590 | .......MagicNKZ(n,k,0) = A008292(n,k+1) .......
z = 1 | A000012 | A040000 | A101101 | thisSeq | A101100 | ....... | .......
z = 2 | A000027 | A005408 | A008458 | A101103 | A101095 | ....... | .......
z = 3 | A000217 | A000290 | A003215 | A005914 | A101096 | ....... | .......
z = 4 | A000292 | A000330 | A000578 | A005917 | A101098 | ....... | .......
z = 5 | A000332 | A002415 | A000537 | A000583 | A022521 | ....... | A255181
z = 6 | A000389 | A005585 | A024166 | A000538 | A000584 | A022522 | A255177
z = 7 | A000579 | A040977 | A101094 | A101089 | A000539 | A001014 | A022523
z = 8 | A000580 | A050486 | A101097 | A101090 | A101092 | A000540 | A001015
z = 9 | A000581 | A053347 | A101102 | A101091 | A101099 | A101093 | A000541
Cf. A101095 for an expanded table and more about MagicNKZ.

MagicNKZ = Sum[(-1)^j*Binomial[n+1-z, j]*(k-j+1)^n, {j, 0, k+1}];Table[MagicNKZ, {n, 4, 4}, {z, 1, 1}, {k, 0, 34}]
Join[{1, 12, 23},LinearRecurrence[{1},{24},56]] (* Ray Chandler, Sep 23 2015 *)

a(k) = MagicNKZ(4,k,1) where MagicNKZ(n,k,z) = Sum_{j=0..k+1} (-1)^j*binomial(n+1-z,j)*(k-j+1)^n (cf. A101095). That is, a(k) = Sum_{j=0..k+1} (-1)^j*binomial(4, j)*(k-j+1)^4.
a(1)=1, a(2)=12, a(3)=23, and a(n)=24 for n>=4. - Joerg Arndt, Nov 30 2014
G.f.: x*(1+11*x+11*x^2+x^3)/(1-x). - Colin Barker, Apr 16 2012

New name from Joerg Arndt, Nov 30 2014

Original Formula edited and Crossrefs table added by Danny Rorabaugh, Apr 22 2015

Might be called "Pentan primes" (in analogy with Cuban primes, of the form (n+1)^3-n^3), or "Nexus primes of order 5" (cf. link below).
Indices k such that Nexus number of order 5 (or A022521(k-1) = k^5 - (k-1)^5) is prime are listed in A121617 = {2, 3, 6, 11, 17, 20, 25, 28, 31, 32, 35, 36, 42, 45, 47, 55, 58, 65, 67, 76, 79, 86, 88, 89, 100,...}.
The last digit is always 1 because 5 is the Pythagorean prime A002144(1). a(1) = 31 is the Mersenne prime A000668(3).

The elements of A022521 are sometimes called Nexus number of order 5, see there.
The terms should have 1 subtracted, since indices of primes in A022521 are 1, 2, 5, 10, 16, 19, 24, 27, 30, 31, 34, 35, 41, 44, 46, .... - M. F. Hasler, Jan 27 2013
Corresponding Nexus Primes of order 5 (or primes of form (n+1)^5 - n^5 = A022521(n)) are listed in A121616 = {31, 211, 4651, 61051, 371281, 723901, 1803001, 2861461, ...}.

All Mersenne primes of form 2^p-1 = {3, 7, 31, 127, 8191,...} belong to a(n). Mersenne prime A000668(n) = a(k) when prime(k) = A000043(n). Last digit is always 1 for Nexus numbers of form n^p - (n-1)^p with p = {5, 13, 17, 29, 37, 41, 53, 61, 73, 89, 97, 101,...} = A004144(n) Pythagorean primes: primes of form 4n+1.

cp's OEIS Frontend

A121616 Primes of form (k+1)^5 - k^5 = A022521(k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

A121617 Numbers n such that A022521(n-1) = n^5 - (n-1)^5 is prime.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A000584 Fifth powers: a(n) = n^5.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Haskell

Mathematica

Maxima

PARI

Sage

Formula

Extensions

A005900 Octahedral numbers: a(n) = n*(2*n^2 + 1)/3.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Magma

Magma

Maple

Mathematica

Maxima

PARI

PARI

Python

Formula

A047969 Square array of nexus numbers a(n,k) = (n+1)^(k+1) - n^(k+1) (n >= 0, k >= 0) read by upwards antidiagonals.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Maxima

Formula

A022522 Nexus numbers (n+1)^6 - n^6.

Views

Author

Keywords

References

Links

Crossrefs

Programs

GAP

A005900 Octahedral numbers: a(n) = n(2n^2 + 1)/3.