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-10 of 15 results. Next

A121618 Nexus primes of order 7 or primes of form n^7 - (n-1)^7 = A022523(n-1).

Original entry on oeis.org

127, 14197, 543607, 1273609, 2685817, 5217031, 16344637, 141903217, 1928294551, 8258704609, 14024867221, 22815424087, 30914273881, 91154730577, 116160677851, 183510024391, 280667317267, 552932810431, 1517045588059
Offset: 1

Views

Author

Alexander Adamchuk, Aug 10 2006

Keywords

Comments

Indices n such that Nexus number of 7 order (or A022523(n-1) = n^7 - (n-1)^7) is prime are listed in A121619(n) = {2,4,7,8,9,10,12,17,26, 33,36,39,41,49,51,55,59,66,78,79,80,88,96,98,...}. a(1) = 127 is Mersenne prime A000668(4).

Crossrefs

Programs

  • Mathematica
    Select[Table[n^7 - (n-1)^7, {n,1,200}],PrimeQ]
    Select[Differences[Range[100]^7],PrimeQ] (* Harvey P. Dale, Mar 27 2025 *)
  • PARI
    select(isprime,vector(1000,n,n^7-(n-1)^7)) \\ Charles R Greathouse IV, May 15 2013

A121619 Indices n such that Nexus numbers of order 7 (A022523(n-1) = n^7 - (n-1)^7) are primes.

Original entry on oeis.org

2, 4, 7, 8, 9, 10, 12, 17, 26, 33, 36, 39, 41, 49, 51, 55, 59, 66, 78, 79, 80, 88, 96, 98, 104, 113, 118, 120, 123, 135, 136, 142, 146, 156, 157, 160, 162, 173, 176, 194, 210, 219, 220, 221, 222, 224, 232, 234, 247, 281, 291, 297, 298, 305
Offset: 1

Views

Author

Alexander Adamchuk, Aug 10 2006

Keywords

Comments

Corresponding Nexus primes of order 7 (or primes of form A022523(n-1) = n^7 - (n-1)^7) are listed in A121618[n] = {127, 14197, 543607, 1273609, 2685817, 5217031, 16344637, 141903217,...}.

Crossrefs

Programs

Extensions

More terms from Carl R. White, Feb 28 2008

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

Views

Author

Keywords

Comments

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

Examples

			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
		

References

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

Crossrefs

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

Programs

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

Formula

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

Views

Author

N. J. A. Sloane, Jun 14 1998

Keywords

References

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

Crossrefs

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

Programs

Formula

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

Extensions

More terms from Colin Barker, Dec 21 2012

A022524 Nexus numbers (n+1)^8 - n^8.

Original entry on oeis.org

1, 255, 6305, 58975, 325089, 1288991, 4085185, 11012415, 26269505, 56953279, 114358881, 215622815, 385749025, 660058335, 1087101569, 1732076671, 2680790145, 4044203135, 5963602465, 8616436959, 12222859361, 17053014175, 23435111745, 31764328895, 42512576449
Offset: 0

Views

Author

Keywords

References

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

Crossrefs

Column k=7 of array A047969.

Programs

Formula

G.f.: (x+1)*(x^6+246*x^5+4047*x^4+11572*x^3+4047*x^2+246*x+1) / (x-1)^8. - Colin Barker, Dec 21 2012
G.f.: polylog(-8, 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

Extensions

More terms from Stefan Steinerberger, Apr 09 2006
More terms from Colin Barker, Dec 21 2012

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

A121620 Smallest prime of the form k^p - (k-1)^p, where p = prime(n).

Original entry on oeis.org

3, 7, 31, 127, 313968931, 8191, 131071, 524287, 777809294098524691, 68629840493971, 2147483647, 114867606414015793728780533209145917205659365404867510184121, 44487435359130133495783012898708551, 1136791005963704961126617632861
Offset: 1

Views

Author

Alexander Adamchuk, Aug 10 2006

Keywords

Comments

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.

Crossrefs

Programs

  • Mathematica
    t = {}; n = 0; While[n++; p = Prime[n]; k = 1; While[q = (k + 1)^p - k^p; ! PrimeQ[q], k++]; q < 10^100, AppendTo[t, q]]; t (* T. D. Noe, Feb 12 2013 *)
    spf[p_]:=Module[{k=2},While[CompositeQ[k^p-(k-1)^p],k++];k^p-(k-1)^p]; Table[spf[p],{p,Prime[ Range[20]]}] (* Harvey P. Dale, Apr 01 2024 *)

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

A199656 Triangular array read by rows, T(n,k) is the number of functions from {1,2,...,n} into {1,2,...,n} with maximum value of k.

Original entry on oeis.org

1, 1, 3, 1, 7, 19, 1, 15, 65, 175, 1, 31, 211, 781, 2101, 1, 63, 665, 3367, 11529, 31031, 1, 127, 2059, 14197, 61741, 201811, 543607, 1, 255, 6305, 58975, 325089, 1288991, 4085185, 11012415, 1, 511, 19171, 242461, 1690981, 8124571, 30275911, 93864121, 253202761
Offset: 1

Views

Author

Geoffrey Critzer, Nov 08 2011

Keywords

Comments

Row sums = A000312.
Main diagonal = A045531.

Examples

			Triangle begins:
  1
  1    3
  1    7   19
  1   15   65   175
  1   31  211   781   2101
  1   63  665  3367  11529   31031
  1  127 2059 14197  61741  201811  543607
  ...
		

Crossrefs

Programs

  • Magma
    /* As triangle: */ [[k^n - (k-1)^n: k in [1..n]]: n in [1..9]]; // Vincenzo Librandi, Jan 28 2013
  • Mathematica
    Table[Table[(1-((i-1)/i)^n) i^n,{i,1,n}],{n,1,8}]//Grid
    Flatten[Table[k^n - (k-1)^n, {n, 0, 10}, {k, 1, n}]] (* Vincenzo Librandi, Jan 28 2013 *)

Formula

T(n,k) = k^n-(k-1)^n.

A255177 Second differences of seventh powers (A001015).

Original entry on oeis.org

1, 126, 1932, 12138, 47544, 140070, 341796, 730002, 1412208, 2531214, 4270140, 6857466, 10572072, 15748278, 22780884, 32130210, 44327136, 59978142, 79770348, 104476554, 134960280, 172180806, 217198212, 271178418
Offset: 0

Views

Author

Luciano Ancora, Feb 21 2015

Keywords

Examples

			Second differences:  1, 126, 1932, 12138,  47544, ... (this sequence)
First differences:   1, 127, 2060, 14324,  63801, ... (A152726)
----------------------------------------------------------------------
The seventh powers:  1, 128, 2187, 16384,  78125, ... (A001015)
----------------------------------------------------------------------
First partial sums:  1, 129, 2316, 18700,  96825, ... (A000541)
Second partial sums: 1, 130, 2446, 21146, 117971, ... (A250212)
Third partial sums:  1, 131, 2577, 23723, 141694, ... (A254641)
Fourth partial sums: 1, 132, 2709, 26432, 168126, ... (A254646)
Fifth partial sums:  1, 133, 2842, 29274, 197400, ... (A254684)
		

Crossrefs

Programs

  • Magma
    [1] cat [14*(-1+n)*(9-22*n+23*n^2-12*n^3+3*n^4): n in [2..30]]; // Vincenzo Librandi, Mar 12 2015
    
  • Mathematica
    Join[{1}, Table[14 n (3 n^4 + 5 n^2 + 1), {n, 1, 30}], {n, 0, 24}] (* or *)
    CoefficientList[Series[(1 + 120 x + 1191 x^2 + 2416 x^3 + 1191 x^4 + 120 x^5 + x^6)/(1 - x)^6, {x, 0, 22}], x]
  • Python
    def A255177(n): return 14*n*(n**2*(3*n**2 + 5) + 1) if n else 1 # Chai Wah Wu, Oct 07 2024

Formula

G.f.: (1 + 120*x + 1191*x^2 + 2416*x^3 + 1191*x^4 + 120*x^5 + x^6)/(1 - x)^6.
a(n) = 14*n*(3*n^4 + 5*n^2 + 1) for n>0, a(0)=1.
a(n) = A022523(n)-A022523(n-1). - R. J. Mathar, Jul 16 2015

Extensions

Edited by Bruno Berselli, Mar 19 2015
Showing 1-10 of 15 results. Next