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-4 of 4 results.

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

Views

Author

Cecilia Rossiter, Dec 15 2004

Keywords

Comments

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

Crossrefs

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
Cf. A101095 for an expanded table and more about MagicNKZ.

Programs

  • Mathematica
    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 *)

Formula

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

Extensions

New name from Joerg Arndt, Nov 30 2014
Original Formula edited and Crossrefs table added by Danny Rorabaugh, Apr 22 2015

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

Views

Author

Cecilia Rossiter, Dec 15 2004

Keywords

Comments

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

Crossrefs

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 = 12 | A001288 | A057788 | ....... | A254870 | A254471 | A254683 | A254646 | A254642
z = 13 | A010965 | ....... | ....... | ....... | A254871 | A254472 | A254684 | A254647
z = 14 | A010966 | ....... | ....... | ....... | ....... | A254872 | ....... | .......
--------------------------------------------------------------------------------------
Cf. A047969.

Programs

  • Magma
    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
    
  • Mathematica
    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 *)
  • PARI
    a(n)=if(n>3, 120*n-240, 33*n^2-72*n+40) \\ Charles R Greathouse IV, Oct 11 2015
  • Sage
    [1,28,121]+[120*(k-2) for k in range(4,36)] # Danny Rorabaugh, Apr 23 2015
    

Formula

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

Extensions

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

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

Views

Author

Luciano Ancora, Mar 18 2015

Keywords

Examples

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

Crossrefs

Programs

  • Magma
    [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
  • Mathematica
    Join[{1, 253}, Table[84 (2 n - 1) (2 n^4 - 4 n^3 + 8 n^2 - 6 n + 3), {n, 2, 30}]]

Formula

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.

Extensions

Edited by Bruno Berselli, Mar 19 2015

A259907 Fifth differences of 7th powers (A001015).

Original entry on oeis.org

1, 123, 1557, 6719, 16800, 31920, 52080, 77280, 107520, 142800, 183120, 228480, 278880, 334320, 394800, 460320, 530880, 606480, 687120, 772800, 863520, 959280, 1060080, 1165920, 1276800, 1392720, 1513680, 1639680, 1770720, 1906800, 2047920, 2194080, 2345280, 2501520, 2662800
Offset: 0

Views

Author

Kolosov Petro, Jul 07 2015

Keywords

Examples

			1 128 2187 16384 78125 279936 823543 2097152 4782969 (seventh powers)
1 127 2059 14197 61741 201811 543607 1273609 2685817 (first differences)
1 126 1932 12138 47544 140070 341796  730002 1412208 (second differences)
1 125 1806 10206 35406  92526 201726  388206  682206 (third differences)
1 124 1681  8400 25200  57120 109200  186480  294000 (fourth differences)
1 123 1557  6719 16800  31920  52080   77280  107520 (here)
		

References

  • John H. Conway and Richard K. Guy, The Book of Numbers. New York: Springer-Verlag, pp. 30-32, 1996.
  • Kiran Parulekar. Amazing Properties of Squares and Their Calculations. Kiran Anil Parulekar, 2012.
  • Bag, Amulya Kumar (1966). "Binomial theorem in ancient India". Indian J. History Sci 1 (1): 68-74.
  • Ronald Graham and Donald Knuth, Patashnik, Oren (1994). "(5) Binomial Coefficients". Concrete Mathematics (2nd ed.). Addison Wesley. pp. 153-256.

Crossrefs

Programs

  • Magma
    [1,123,1557,6719] cat [840*(3*n^2-9*n+8): n in [4..40]]; // Bruno Berselli, Jul 16 2015
  • Mathematica
    Join[{1, 123, 1557, 6719}, Table[840 (3 n^2 - 9 n + 8), {n, 4, 40}]]
  • Sage
    [1,123,1557,6719]+[840*(3*n^2-9*n+8) for n in (4..40)] # Bruno Berselli, Jul 16 2015
    

Formula

G.f.: (1 + 120*x + 1191*x^2 + 2416*x^3 + 1191*x^4 + 120*x^5 + x^6)/(1 - x)^3.
a(n) = 840*(3*n^2 - 9*n + 8) for n>3.
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n>6. - Vincenzo Librandi, Jul 08 2015

Extensions

Edited by Editors of the OEIS, Jul 16 2015
Showing 1-4 of 4 results.