A022524 -id:A022524 - cp's OEIS frontend

A001016 Eighth powers: a(n) = n^8.

0, 1, 256, 6561, 65536, 390625, 1679616, 5764801, 16777216, 43046721, 100000000, 214358881, 429981696, 815730721, 1475789056, 2562890625, 4294967296, 6975757441, 11019960576, 16983563041, 25600000000, 37822859361, 54875873536, 78310985281, 110075314176

Offset: 0

N. J. A. Sloane

Besides the first term, this sequence lists the denominators in Pi^8/9450 = 1 + 1/256 + 1/6561 + 1/65536 + 1/390625 + 1/1679616 + ... - Mohammad K. Azarian, Nov 01 2011, edited by M. F. Hasler, Jul 03 2025
For n > 0, a(n) is the largest number k such that k + n^4 divides k^2 + n^4. - Derek Orr, Oct 01 2014
Fourth powers of squares and squares of 4th powers. Squares composed with themselves twice. - Wesley Ivan Hurt, Apr 01 2016

Granino A. Korn and Theresa M. Korn, Mathematical Handbook for Scientists and Engineers, McGraw-Hill Book Company, New York (1968), p. 982.
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).

T. D. Noe, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (9, -36, 84, -126, 126, -84, 36, -9, 1).

Cf. A000290 (squares), A000583 (fourth powers), A001014 - A001017 (6th - 9th powers), A008454 (10th powers), A010801 (13th powers).
Cf. A000542 (partial sums), A022524 (first differences), A013666 (zeta(8)).
Cf. A003380 - A003390 (sums of 2, ..., 12 eighth powers).

[n^8 : n in [0..50]]; // Wesley Ivan Hurt, Apr 01 2016

A001016:=n->n^8: seq(A001016(n), n=0..50); # Wesley Ivan Hurt, Apr 01 2016

Table[n^8, {n, 0, 20}] (* Vladimir Joseph Stephan Orlovsky, Sep 27 2008 *)

A001016(n):=n^8$
makelist(A001016(n),n,0,30); /* Martin Ettl, Nov 05 2012 */

A001016(n)=n^8 \\ Charles R Greathouse IV, Sep 24 2015

A001016 = lambda n: n**8 # M. F. Hasler, Jul 03 2025

Multiplicative with a(p^e) = p^(8e). - David W. Wilson, Aug 01 2001
Totally multiplicative sequence with a(p) = p^8 for primes p. - Jaroslav Krizek, Nov 01 2009
G.f.: -x*(1+x)*(x^6+246*x^5+4047*x^4+11572*x^3+4047*x^2+246*x+1)/(x-1)^9. - R. J. Mathar, Jan 07 2011
a(n) = 8*a(n-1) - 28*a(n-2) + 56*a(n-3) - 70*a(n-4) + 56*a(n-5) - 28*a(n-6) + 8*a(n-7) - a(n-8) + 40320. - Ant King, Sep 24 2013
From Wesley Ivan Hurt, Apr 01 2016: (Start)
a(n) = 9*a(n-1) - 36*a(n-2) + 84*a(n-3) - 126*a(n-4) + 126*a(n-5) - 84*a(n-6) + 36*a(n-7) - 9*a(n-8) + a(n-9) for n > 8.
a(n) = A000290(n)^4 = A000290(A000290(A000290(n))).
a(n) = A000583(n)^2. (End)
From Amiram Eldar, Oct 08 2020: (Start)
Sum_{n>=1} 1/a(n) = zeta(8) = Pi^8/9450 (A013666).
Sum_{n>=1} (-1)^(n+1)/a(n) = 127*zeta(8)/128 = 127*Pi^8/1209600. (End)
E.g.f.: exp(x)*x*(1 + 127*x + 966*x^2 + 1701*x^3 + 1050*x^4 + 266*x^5 + 28*x^6 + x^7). - Stefano Spezia, Jul 29 2022

More terms from James Sellers, Sep 19 2000

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)

A022523 Nexus numbers (n+1)^7-n^7.

Original entry on oeis.org

1, 127, 2059, 14197, 61741, 201811, 543607, 1273609, 2685817, 5217031, 9487171, 16344637, 26916709, 42664987, 65445871, 97576081, 141903217, 201881359, 281651707, 386128261, 521088541, 693269347, 910467559, 1181645977, 1517044201, 1928294551, 2428543027

Offset: 0

N. J. A. Sloane

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
H. D. Nguyen, D. Taggart, Mining the OEIS: Ten Experimental Conjectures, 2013; citseerx. Mentions this sequence. - From _N. J. A. Sloane_, Mar 16 2014
Index entries for linear recurrences with constant coefficients, signature (7,-21,35,-35,21,-7,1).

First differences of A001015.
Cf. A008292, A022522, A022524.
Column k=6 of array A047969.

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

q=7;lst={};Do[AppendTo[lst,(n+1)^q-n^q],{n,0,3*4!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 23 2009 *)
Table[(n+1)^7-n^7,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *)
LinearRecurrence[{7,-21,35,-35,21,-7,1},{1,127,2059,14197,61741,201811,543607},30] (* Harvey P. Dale, Apr 17 2017 *)
Differences[Range[0,50]^7] (* Harvey P. Dale, Jun 07 2023 *)

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

G.f.: -(x^6+120*x^5+1191*x^4+2416*x^3+1191*x^2+120*x+1) / (x-1)^7. - Colin Barker, Dec 21 2012

G.f.: polylog(-7, x)*(1-x)/x. See the g.f. of the rows of A008292 by Vladeta Jovovic, Sep 02 2002. - Wolfdieter Lang, May 10 2021

A022525 Nexus numbers (n+1)^9-n^9.

Original entry on oeis.org

1, 511, 19171, 242461, 1690981, 8124571, 30275911, 93864121, 253202761, 612579511, 1357947691, 2801832661, 5444719021, 10056547411, 17782312591, 30276117361, 49868399761, 79771413871, 124328407411, 189312302221, 282280046581, 412989171211, 593883443671

Offset: 0

N. J. A. Sloane

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
Index entries for linear recurrences with constant coefficients, signature (9,-36,84,-126,126,-84,36,-9,1).

Column m=8 of A047969.

Cf. A008292, A022524, A022526.

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

q=9;lst={};Do[AppendTo[lst,(n+1)^q-n^q],{n,0,2*4!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 23 2009 *)
Table[(n+1)^9-n^9,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *)

a(n)=(n+1)^9-n^9 \\ Charles R Greathouse IV, Oct 07 2015

G.f.: -(x^8 +502*x^7 +14608*x^6 +88234*x^5 +156190*x^4 +88234*x^3 +14608*x^2 +502*x +1) / (x -1)^9. - Colin Barker, Dec 21 2012

G.f.: polylog(-9, x)*(1-x)/x. See 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

A101095 Fourth difference of fifth powers (A000584).

Original entry on oeis.org

1, 28, 121, 240, 360, 480, 600, 720, 840, 960, 1080, 1200, 1320, 1440, 1560, 1680, 1800, 1920, 2040, 2160, 2280, 2400, 2520, 2640, 2760, 2880, 3000, 3120, 3240, 3360, 3480, 3600, 3720, 3840, 3960, 4080, 4200, 4320, 4440, 4560, 4680, 4800, 4920, 5040, 5160, 5280

Offset: 1

Cecilia Rossiter, Dec 15 2004

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

The (Worpitzky/Euler/Pascal Cube) "MagicNKZ" algorithm is: MagicNKZ(n,k,z) = Sum_{j=0..k+1} (-1)^j*binomial(n + 1 - z, j)*(k - j + 1)^n, with k>=0, n>=1, z>=0. MagicNKZ is used to generate the n-th accumulation sequence of the z-th row of the Euler Triangle (A008292). For example, MagicNKZ(3,k,0) is the 3rd row of the Euler Triangle (followed by zeros) and MagicNKZ(10,k,1) is the partial sums of the 10th row of the Euler Triangle. This sequence is MagicNKZ(5,k-1,2).

Danny Rorabaugh, Table of n, a(n) for n = 1..10000
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.
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 (2,-1).

Fourth differences of A000584, third differences of A022521, second differences of A101098, and first differences of A101096.
For other sequences based upon MagicNKZ(n,k,z):
...... |  n = 1  |  n = 2  |  n = 3  |  n = 4  |  n = 5  |  n = 6  |  n = 7  |  n = 8
--------------------------------------------------------------------------------------
z =  0 | A000007 | A019590 | .......  MagicNKZ(n,k,0) = T(n,k+1) from A008292  .......
z =  1 | A000012 | A040000 | A101101 | A101104 | A101100 | ....... | ....... | .......
z =  2 | A000027 | A005408 | A008458 | A101103 | thisSeq | ....... | ....... | .......
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 | A255182
z =  7 | A000579 | A040977 | A101094 | A101089 | A000539 | A001014 | A022523 | A255178
z =  8 | A000580 | A050486 | A101097 | A101090 | A101092 | A000540 | A001015 | A022524
z =  9 | A000581 | A053347 | A101102 | A101091 | A101099 | A101093 | A000541 | A001016
z = 10 | A000582 | A054333 | A254469 | A254681 | A254644 | A254640 | A250212 | A000542
z = 11 | A001287 | A054334 | A254869 | A254470 | A254682 | A254645 | A254641 | A253636
z = 12 | A001288 | A057788 | ....... | A254870 | A254471 | A254683 | A254646 | A254642
z = 13 | A010965 | ....... | ....... | ....... | A254871 | A254472 | A254684 | A254647
z = 14 | A010966 | ....... | ....... | ....... | ....... | A254872 | ....... | .......
--------------------------------------------------------------------------------------
Cf. A047969.

I:=[1,28,121,240,360]; [n le 5 select I[n] else 2*Self(n-1)-Self(n-2): n in [1..50]]; // Vincenzo Librandi, May 07 2015

MagicNKZ=Sum[(-1)^j*Binomial[n+1-z, j]*(k-j+1)^n, {j, 0, k+1}];Table[MagicNKZ, {n, 5, 5}, {z, 2, 2}, {k, 0, 34}]
CoefficientList[Series[(1 + 26 x + 66 x^2 + 26 x^3 + x^4)/(1 - x)^2, {x, 0, 50}], x] (* Vincenzo Librandi, May 07 2015 *)
Join[{1,28,121,240},Differences[Range[50]^5,4]] (* or *) LinearRecurrence[{2,-1},{1,28,121,240,360},50] (* Harvey P. Dale, Jun 11 2016 *)

a(n)=if(n>3, 120*n-240, 33*n^2-72*n+40) \\ Charles R Greathouse IV, Oct 11 2015

[1,28,121]+[120*(k-2) for k in range(4,36)] # Danny Rorabaugh, Apr 23 2015

a(k+1) = Sum_{j=0..k+1} (-1)^j*binomial(n + 1 - z, j)*(k - j + 1)^n; n = 5, z = 2.
For k>3, a(k) = Sum_{j=0..4} (-1)^j*binomial(4, j)*(k - j)^5 = 120*(k - 2).
a(n) = 2*a(n-1) - a(n-2), n>5. G.f.: x*(1+26*x+66*x^2+26*x^3+x^4) / (1-x)^2. - Colin Barker, Mar 01 2012

MagicNKZ material edited, Crossrefs table added, SeriesAtLevelR material removed by Danny Rorabaugh, Apr 23 2015

Name changed and keyword 'uned' removed by Danny Rorabaugh, May 06 2015

A254642 Third partial sums of eighth powers (A001016).

Original entry on oeis.org

1, 259, 7335, 86765, 629174, 3314178, 13906578, 49183590, 152191935, 422931613, 1075761505, 2540663307, 5633367740, 11829663860, 23692442292, 45516670332, 84278105421, 150996708135, 262656041515, 444856105561, 735419759634, 1189222877270

Offset: 1

Luciano Ancora, Feb 05 2015

			First differences:   1, 255, 6305, 58975, 325089, ...(A022524)
--------------------------------------------------------------------
The eighth powers:   1, 256, 6561, 65536, 390625, ...(A001016)
--------------------------------------------------------------------
First partial sums:  1, 257, 6818, 72354, 462979, ...(A000542)
Second partial sums: 1, 258, 7076, 79430, 542409, ...(A253636)
Third partial sums:  1, 259, 7335, 86765, 629174, ...(this sequence)

Luciano Ancora, Table of n, a(n) for n = 1..1000
Luciano Ancora, Partial sums of m-th powers with Faulhaber polynomials
Luciano Ancora, Pascal’s triangle and recurrence relations for partial sums of m-th powers
Index entries for linear recurrences with constant coefficients, signature (12,-66,220,-495,792,-924,792,-495,220,-66,12,-1).

Cf. A000542, A001016, A022524, A253636.

Table[n (1 + n) (2 + n) (3 + n) (3 + 2 n) (1 + 36 n - 69 n^2 + 45 n^4 + 18 n^5 + 2 n^6)/3960, {n, 22}]
Accumulate[Accumulate[Accumulate[Range[22]^8]]]
CoefficientList[Series[(1 + 247 x + 4293 x^2 + 15619 x^3 + 15619 x^4 + 4293 x^5 + 247 x^6 + x^7)/(- 1 + x)^12, {x, 0, 22}], x]

a(n)=n*(1+n)*(2+n)*(3+n)*(3+2*n)*(1+36*n-69*n^2+45*n^4+18*n^5+2*n^6)/3960 \\ Charles R Greathouse IV, Oct 07 2015

G.f.: (x + 247*x^2 + 4293*x^3 + 15619*x^4 + 15619*x^5 + 4293*x^6 + 247*x^7 + x^8)/(- 1 + x)^12.
a(n) = n*(1 + n)*(2 + n)*(3 + n)*(3 + 2*n)*(1 + 36*n - 69*n^2 + 45*n^4 + 18*n^5 + 2*n^6)/3960.
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) + n^8.

A255178 Second differences of eighth powers (A001016).

Original entry on oeis.org

1, 254, 6050, 52670, 266114, 963902, 2796194, 6927230, 15257090, 30683774, 57405602, 101263934, 170126210, 274309310, 427043234, 644975102, 948713474, 1363412990, 1919399330, 2652834494, 3606422402, 4830154814, 6382097570, 8329217150, 10748247554

Offset: 0

Luciano Ancora, Feb 21 2015

			Second differences:  1, 254, 6050, 52670, 266114, ... (this sequence)
First differences:   1, 255, 6305, 58975, 325089, ... (A022524)
----------------------------------------------------------------------
The eighth powers:   1, 256, 6561, 65536, 390625, ... (A001016)
----------------------------------------------------------------------
First partial sums:  1, 257, 6818, 72354, 462979, ... (A000542)
Second partial sums: 1, 258, 7076, 79430, 542409, ... (A253636)
Third partial sums:  1, 259, 7335, 86765, 629174, ... (A254642)
Fourth partial sums: 1, 260, 7595, 94360, 723534, ... (A254647)

Luciano Ancora, Table of n, a(n) for n = 0..1000
Luciano Ancora, Sums of powers of positive integers and their recurrence relations, section 0.5.
Index entries for linear recurrences with constant coefficients, signature (7,-21,35,-35,21,-7,1).

Cf. A000542, A001016, A022524, A253636, A254642, A254647, A255177.

[n eq 0 select 1 else 2*(28*n^6+70*n^4+28*n^2+1): n in [0..30]]; // Vincenzo Librandi, Mar 12 2015

Join[{1}, Table[2 (28 n^6 + 70 n^4 + 28 n^2 + 1), {n, 1, 30}]]
Join[{1},Differences[Range[0,30]^8,2]] (* Harvey P. Dale, Aug 26 2024 *)

G.f.: (1 + x)*(1 + 246*x + 4047*x^2 + 11572*x^3 + 4047*x^4 + 246*x^5 + x^6)/(1 - x)^7.

a(n) = 2*(28*n^6 + 70*n^4 + 28*n^2 + 1) for n>0, a(0)=1.

Edited by Bruno Berselli, Mar 19 2015

A255182 Third differences of eighth powers (A001016).

Original entry on oeis.org

1, 253, 5796, 46620, 213444, 697788, 1832292, 4131036, 8329860, 15426684, 26721828, 43858332, 68862276, 104183100, 152733924, 217931868, 303738372, 414699516, 555986340, 733435164, 953587908, 1223732412, 1551942756, 1947119580, 2419030404, 2978349948

Offset: 0

Luciano Ancora, Mar 18 2015

			Third differences:   1, 253, 5796, 46620, 213444, ...  (this sequence)
Second differences:  1, 254, 6050, 52670, 266114, ...  (A255178)
First differences:   1, 255, 6305, 58975, 325089, ...  (A022524)
---------------------------------------------------------------------
The seventh powers:  1, 253, 5796, 46620, 213444, ...  (A001016)
---------------------------------------------------------------------

Luciano Ancora, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A000542, A001016, A022524, A254642, A255178, A255181.

[1,253] cat [84*(2*n-1)*(2*n^4-4*n^3+8*n^2-6*n+3): n in [2..30]]; // Vincenzo Librandi, Mar 18 2015

Join[{1, 253}, Table[84 (2 n - 1) (2 n^4 - 4 n^3 + 8 n^2 - 6 n + 3), {n, 2, 30}]]

G.f.: (1 + 247*x + 4293*x^2 + 15619*x^3 + 15619*x^4 + 4293*x^5 + 247*x^6 + x^7)/(1 - x)^6.

a(n) = 84*(2*n - 1)*(2*n^4 - 4*n^3 + 8*n^2 - 6*n + 3) for n>1, a(0)=1, a(1)=253.

Edited by Bruno Berselli, Mar 19 2015

A343237 Triangle T obtained from the array A(n, k) = (k+1)^(n+1) - k^(n+1), n, k >= 0, by reading antidiagonals upwards.

Original entry on oeis.org

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

Offset: 0

Wolfdieter Lang, May 10 2021

This is the row reversed version of the triangle A047969(n, m). The corresponding array A047969 is a(n, k) = A(k, n) (transposed of array A).

A(n-1, k-1) = k^n - (k-1)^n gives the number of n-digit numbers with digits from K = {1, 2, 3, ..., k} such that any digit from K, say k, appears at least once. Motivated by a comment in A005061 by Enrique Navarrete, the instance k=4 for n >= 1 (the column 3 in array A), and the d = 3 (sub)-diagonal sequence of T for m >= 0.

			The array A begins:
n\k  0  1   2    3     4     5     6      7      8      9 ...
-------------------------------------------------------------
0:   1  1   1    1     1     1     1      1      1      1 ...
1:   1  3   5    7     9    11    13     15     17     19 ...
2:   1  7  19   37    61    91   127    169    217    271 ...
3:   1 15  65  175   369   671  1105   1695   2465   3439 ...
4:   1 31 211  781  2101  4651  9031  15961  26281  40951 ...
5:   1 63 665 3367 11529 31031 70993 144495 269297 468559 ...
...
The 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    7     5     1
4:    1   15    19     7     1
5:    1   31    65    37     9     1
6:    1   63   211   175    61    11    1
7:    1  127   665   781   369    91   13    1
8:    1  255  2059  3367  2101   671  127   15   1
9:    1  511  6305 14197 11529  4651 1105  169  17  1
10:   1 1023 19171 58975 61741 31031 9031 1695 217 19  1
...
Combinatorial interpretation (cf. A005061 by _Enrique Navarrete_)
The three digits numbers with digits from K ={1, 2, 3, 4} having at least one 4 are:
j=1 (one 4): 114, 141, 411; 224, 242, 422; 334, 343, 433; 124, 214, 142, 241, 412, 421; 134, 314, 143, 341, 413, 431; 234, 243, 423. That is,  3*3 + 3!*3 = 27 = binomial(3, 1)*(4-1)^(3-1) = 3*3^2;
j=2 (twice 4):  144, 414, 441;  244, 424, 442;  344, 434, 443; 3*3 = 9 = binomial(3, 2)*(4-1)^(3-2) = 3*3;
j=3 (thrice 4) 444; 1 = binomial(3, 3)*(4-1)^(3-3).
Together: 27 + 9 + 1 = 37 = A(2, 3) = T(5, 3).

Cf. A005061, A008292, A047969 (reversed), A045531 (central diagonal), A047970 (row sums of triangle).
Row sequences of array A (nexus numbers): A000012, A005408, A003215, A005917(k+1), A022521, A022522, A022523, A022524, A022525, A022526, A022527, A022528.
Column sequences of array A: A000012, A000225(n+1), A001047(n+1), A005061(n+1), A005060(n+1), A005062(n+1), A016169(n+1), A016177(n+1), A016185(n+1), A016189(n+1), A016195(n+1), A016197(n+1).

egf := exp(exp(x)*y + x)*(exp(x)*y - y + 1): ser := series(egf, x, 12):
cx := n -> series(n!*coeff(ser, x, n), y, 12):
Arow := n -> seq(k!*coeff(cx(n), y, k), k=0..9):
for n from 0 to 5 do Arow(n) od; # Peter Luschny, May 10 2021

A[n_, k_] := (k + 1)^(n + 1) - k^(n + 1); Table[A[n - k, k], {n, 0, 9}, {k, 0, n}] // Flatten (* Amiram Eldar, May 10 2021 *)

Array A(n, k) = (k+1)^(n+1) - k^(n+1), n, k >= 0.
A(n-1, k-1) = Sum_{j=1} binomial(n, j)*(k-1)^(n-j) = Sum_{j=0} binomial(n, j)*(k-1)^(n-j) - (k-1)^n = (1+(k-1))^n - (k-1)^n = k^n - (k-1)^n (from the combinatorial comment on A(n-1, k-1) above).
O.g.f. row n of array A: RA(n, x) = P(n, x)/(1 - x)^n, with P(n, x) = Sum_{m=0..n} A008292(n+1, m+1)*x^m, (the Eulerian number triangle  A008292 has offset 1) for n >= 0. (See the Oct 26 2008 comment in A047969 by Peter Bala). RA(n, x) = polylog(-(n+1), x)*(1-x)/x. (For P(n, x) see the formula by Vladeta Jovovic, Sep 02 2002.)
E.g.f. of e.g.f.s of the rows of array A: EE(x, y) = exp(x)*(1 + y*(exp(x) - 1))*exp(y*exp(x)), that is A(n, k) = [y^k/k!][x^n/n!] EE(x, y).
Triangle T(n, m) = A(n-m, m) = (m+1)^(n-m+1) - m^(n-m+1), n >= 0, m = 0, 1, ..., n.
E.g.f.: -(exp(x)-1)/(x*exp(x)*y-x). - Vladimir Kruchinin, Nov 02 2022

A341050 Cube array read by upward antidiagonals ignoring zero and empty terms: T(n, k, r) is the number of n-ary strings of length k, containing r consecutive 0's.

Original entry on oeis.org

1, 1, 1, 3, 1, 1, 3, 1, 5, 8, 1, 1, 3, 1, 5, 8, 1, 7, 21, 19, 1, 1, 3, 1, 5, 8, 1, 7, 21, 20, 1, 9, 40, 81, 43, 1, 1, 3, 1, 5, 8, 1, 7, 21, 20, 1, 9, 40, 81, 47, 1, 11, 65, 208, 295, 94, 1, 1, 3, 1, 5, 8, 1, 7, 21, 20, 1, 9, 40, 81, 48, 1, 11, 65, 208, 297, 107, 1, 13, 96, 425, 1024, 1037, 201

Offset: 2

Robert P. P. McKone, Feb 04 2021

			For n = 5, k = 6 and r = 4, there are 65 strings: {000000, 000001, 000002, 000003, 000004, 000010, 000011, 000012, 000013, 000014, 000020, 000021, 000022, 000023, 000024, 000030, 000031, 000032, 000033, 000034, 000040, 000041, 000042, 000043, 000044, 010000, 020000, 030000, 040000, 100000, 100001, 100002, 100003, 100004, 110000, 120000, 130000, 140000, 200000, 200001, 200002, 200003, 200004, 210000, 220000, 230000, 240000, 300000, 300001, 300002, 300003, 300004, 310000, 320000, 330000, 340000, 400000, 400001, 400002, 400003, 400004, 410000, 420000, 430000, 440000}
The first seven slices of the tetrahedron (or pyramid) are:
-----------------Slice 1-----------------
  1
-----------------Slice 2-----------------
    1
  1  3
-----------------Slice 3-----------------
      1
    1  3
  1  5  8
-----------------Slice 4-----------------
        1
      1  3
    1  5   8
  1  7  21  19
-----------------Slice 5-----------------
          1
        1  3
      1  5   8
    1  7  21  20
  1  9  40  81  43
-----------------Slice 6-----------------
              1
           1    3
        1    5     8
      1   7    21    20
    1   9   40    81    47
  1  11  65   208   295   94
-----------------Slice 7-----------------
                 1
              1     3
           1     5     8
         1    7     21    20
      1    9    40     81      48
    1   11   65    208     297     107
  1  13   96   425    1024    1037    201

Robert P. P. McKone, Antidiagonals n = 2..50, flattened

Cf. A340156 (r=2), A340242 (r=3).
Cf. A008466 (n=2, r=2), A186244 (n=3, r=2), A050231 (n=2, r=3), A231430 (n=3, r=3).
Cf. A005408, A003215, A005917, A022521, A022522, A022523, A022524, A022525, A022526, A022527, A022528, A022529, A022530, A022531, A022532, A022533, A022534, A022535, A022536, A022537, A022538, A022539, A022540 (k=x, r=1, where x is the x-th Nexus Number).
Cf. A000567 [(k=4, r=2),(k=5, r=3),(k=6, r=4),...,(k=x, r=x-2)].
Cf. A103532 [(k=6, r=3),(k=7, r=4),(k=8, r=5),...,(k=x, r=x-3)].

m[r_, n_] := Normal[With[{p = 1/n}, SparseArray[{Band[{1, 2}] -> p, {i_, 1} /; i <= r -> 1 - p, {r + 1, r + 1} -> 1}]]]; T[n_, k_, r_] := MatrixPower[m[r, n], k][[1, r + 1]]*n^k; DeleteCases[Transpose[PadLeft[Reverse[Table[T[n, k, r], {k, 2, 8}, {r, 2, k}, {n, 2, r}], 2]], 2 <-> 3], 0, 3] // Flatten

cp's OEIS Frontend

A001016 Eighth powers: a(n) = n^8.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Maxima

PARI

Python

Formula

Extensions

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

A022523 Nexus numbers (n+1)^7-n^7.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A022525 Nexus numbers (n+1)^9-n^9.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

Extensions

A101095 Fourth difference of fifth powers (A000584).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Sage

Formula

Extensions

A254642 Third partial sums of eighth powers (A001016).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI