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.

Previous Showing 11-18 of 18 results.

A063491 a(n) = (2*n - 1)*(3*n^2 - 3*n + 2)/2.

Original entry on oeis.org

1, 12, 50, 133, 279, 506, 832, 1275, 1853, 2584, 3486, 4577, 5875, 7398, 9164, 11191, 13497, 16100, 19018, 22269, 25871, 29842, 34200, 38963, 44149, 49776, 55862, 62425, 69483, 77054, 85156, 93807, 103025, 112828, 123234, 134261, 145927, 158250, 171248, 184939
Offset: 1

Views

Author

N. J. A. Sloane, Aug 01 2001

Keywords

Comments

A triangle has sides of lengths 6*n-3, 6*n^2-6*n+4, and 6*n^2-6*n+7; for n>2 its area is 6*sqrt(a(n)^2 - 1). - J. M. Bergot, Aug 30 2013
[The source of this is using (n,n+1), (n+1,n+2), and (n+2,n+3) as (a,b) in the creation of three Pythagorean triangles with sides b^2-a^2, 2*a*b, and a^2+b^2. Combine the three respective sides to create a new larger triangle, then find its area. It is not simply working backwards from the sequence. As well, the sequence has this as its first comment to show that the numbers are actually doing something to find a solution.]

References

  • T. A. Gulliver, Sequences from Arrays of Integers, Int. Math. Journal, Vol. 1, No. 4, pp. 323-332, 2002.

Crossrefs

1/12*t*(2*n^3-3*n^2+n)+2*n-1 for t = 2, 4, 6, ... gives A049480, A005894, A063488, A001845, A063489, A005898, A063490, A057813, A063491, A005902, A063492, A005917, A063493, A063494, A063495, A063496.

Programs

  • Magma
    [(2*n-1)*(3*n^2 -3*n +2)/2: n in [1..30]]; // G. C. Greubel, Dec 01 2017
  • Mathematica
    LinearRecurrence[{4,-6,4,-1},{1,12,50,133},40] (* Harvey P. Dale, Jun 05 2016 *)
    Table[(2*n-1)*(3*n^2 -3*n +2)/2, {n,1,30}] (* G. C. Greubel, Dec 01 2017 *)
  • PARI
    a(n) = { (2*n - 1)*(3*n^2 - 3*n + 2)/2 } \\ Harry J. Smith, Aug 23 2009
    
  • PARI
    my(x='x+O('x^30)); Vec(serlaplace((-2 + 4*x + 9*x^2 + 6*x^3)*exp(x)/2 + 1)) \\ G. C. Greubel, Dec 01 2017
    
  • R
    a <- c(0, 1, 9, 38, 110)
    for(n in (length(a)+1):40)
      a[n] <- +4*a[n-1]-6*a[n-2]+4*a[n-3]-a[n-4]
    a [Yosu Yurramendi, Sep 04 2013]
    

Formula

G.f.: x*(1+x)*(1+7*x+x^2)/(1-x)^4. - Colin Barker, Apr 20 2012
a(n) = +4*a(n-1) -6*a(n-2) +4*a(n-3) -1*a(n-4) n > 3, a(1)=1, a(2)=12, a(3)=50, a(4)=133. - Yosu Yurramendi, Sep 04 2013
E.g.f.: (-2 + 4*x + 9*x^2 + 6*x^3)*exp(x)/2 + 1. - G. C. Greubel, Dec 01 2017
From Bruce J. Nicholson, Jun 17 2020: (Start)
a(n) = A005448(n) * A005408(n-1).
a(n) = A004188(n) + A004188(n-1). (End)

A063492 a(n) = (2*n - 1)*(11*n^2 - 11*n + 6)/6.

Original entry on oeis.org

1, 14, 60, 161, 339, 616, 1014, 1555, 2261, 3154, 4256, 5589, 7175, 9036, 11194, 13671, 16489, 19670, 23236, 27209, 31611, 36464, 41790, 47611, 53949, 60826, 68264, 76285, 84911, 94164, 104066, 114639, 125905, 137886, 150604, 164081, 178339, 193400, 209286, 226019
Offset: 1

Views

Author

N. J. A. Sloane, Aug 01 2001

Keywords

Crossrefs

1/12*t*(2*n^3 - 3*n^2 + n) + 2*n - 1 for t = 2, 4, 6, ... gives A049480, A005894, A063488, A001845, A063489, A005898, A063490, A057813, A063491, A005902, A063492, A005917, A063493, A063494, A063495, A063496.

Programs

Formula

G.f.: x*(1+x)*(1 + 9*x + x^2)/(1-x)^4. - Colin Barker, Apr 24 2012
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4) for n>4. - Wesley Ivan Hurt, Dec 16 2015
E.g.f.: (-6 + 12*x + 33*x^2 + 22*x^3)*exp(x)/6 + 1. - G. C. Greubel, Dec 01 2017

A063493 a(n) = (2*n-1)*(13*n^2-13*n+6)/6.

Original entry on oeis.org

1, 16, 70, 189, 399, 726, 1196, 1835, 2669, 3724, 5026, 6601, 8475, 10674, 13224, 16151, 19481, 23240, 27454, 32149, 37351, 43086, 49380, 56259, 63749, 71876, 80666, 90145, 100339, 111274, 122976, 135471, 148785, 162944, 177974, 193901, 210751, 228550, 247324, 267099
Offset: 1

Views

Author

N. J. A. Sloane, Aug 01 2001

Keywords

Crossrefs

1/12*t*(2*n^3-3*n^2+n)+2*n-1 for t = 2, 4, 6, ... gives A049480, A005894, A063488, A001845, A063489, A005898, A063490, A057813, A063491, A005902, A063492, A005917, A063493, A063494, A063495, A063496.

Programs

  • Magma
    [(2*n-1)*(13*n^2-13*n+6)/6: n in [1..40]]; // Vincenzo Librandi, Dec 16 2015
  • Mathematica
    Table[(2 n - 1) (13 n^2 - 13 n + 6)/6, {n, 1, 40}] (* Bruno Berselli, Dec 16 2015 *)
    LinearRecurrence[{4,-6,4,-1}, {1,16,70,189}, 30] (* G. C. Greubel, Dec 01 2017 *)
  • PARI
    a(n) = { (2*n - 1)*(13*n^2 - 13*n + 6)/6 } \\ Harry J. Smith, Aug 23 2009
    
  • PARI
    my(x='x+O('x^30)); Vec(serlaplace((-6+12*x+39*x^2+26*x^3)*exp(x)/6 + 1)) \\ G. C. Greubel, Dec 01 2017
    
  • Python
    A063493_list, m = [], [26, -13, 2, 1]
    for _ in range(10**2):
        A063493_list.append(m[-1])
        for i in range(3):
            m[i+1] += m[i] # Chai Wah Wu, Dec 15 2015
    

Formula

G.f.: x*(1+x)*(1+11*x+x^2)/(1-x)^4. - Colin Barker, Apr 20 2012
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4) for n>3. - Vincenzo Librandi, Dec 16 2015
E.g.f.: (-6 + 12*x + 39*x^2 + 26*x^3)*exp(x)/6 + 1. - G. C. Greubel, Dec 01 2017

A063495 a(n) = (2*n-1)*(5*n^2-5*n+2)/2.

Original entry on oeis.org

1, 18, 80, 217, 459, 836, 1378, 2115, 3077, 4294, 5796, 7613, 9775, 12312, 15254, 18631, 22473, 26810, 31672, 37089, 43091, 49708, 56970, 64907, 73549, 82926, 93068, 104005, 115767, 128384, 141886, 156303, 171665, 188002, 205344, 223721, 243163, 263700, 285362
Offset: 1

Views

Author

N. J. A. Sloane, Aug 01 2001

Keywords

Crossrefs

1/12*t*(2*n^3-3*n^2+n)+2*n-1 for t = 2, 4, 6, ... gives A049480, A005894, A063488, A001845, A063489, A005898, A063490, A057813, A063491, A005902, A063492, A005917, A063493, A063494, A063495, A063496.

Programs

  • Magma
    [(2*n-1)*(5*n^2-5*n+2)/2: n in [1..30]]; // G. C. Greubel, Dec 01 2017
  • Mathematica
    Table[(2n-1)(5n^2-5n+2)/2,{n,40}] (* or *) LinearRecurrence[{4,-6,4,-1},{1,18,80,217},40] (* Harvey P. Dale, Dec 18 2011 *)
  • PARI
    a(n) = (2*n - 1)*(5*n^2 - 5*n + 2)/2 \\ Harry J. Smith, Aug 23 2009
    
  • PARI
    my(x='x+O('x^30)); Vec(serlaplace((-2+4*x+15*x^2+10*x^3)*exp(x)/2 + 1)) \\ G. C. Greubel, Dec 01 2017
    

Formula

From Harvey P. Dale, Dec 18 2011: (Start)
a(1)=1, a(2)=18, a(3)=80, a(4)=217, a(n) = 4*a(n-1) -6*a(n-2) +4*a(n-3) - a(n-4).
G.f.: (x^3+14*x^2+14*x+1)/(1-x)^4. (End)
E.g.f.: (-2 + 4*x + 15*x^2 + 10*x^3)*exp(x)/2 + 1. - G. C. Greubel, Dec 01 2017

A049480 a(n) = (2*n-1)*(n^2 -n +6)/6.

Original entry on oeis.org

1, 4, 10, 21, 39, 66, 104, 155, 221, 304, 406, 529, 675, 846, 1044, 1271, 1529, 1820, 2146, 2509, 2911, 3354, 3840, 4371, 4949, 5576, 6254, 6985, 7771, 8614, 9516, 10479, 11505, 12596, 13754, 14981, 16279, 17650, 19096, 20619, 22221
Offset: 1

Views

Author

N. J. A. Sloane, Aug 01 2001

Keywords

Crossrefs

1/12*t*(2*n^3-3*n^2+n)+2*n-1 for t = 2, 4, 6, ... gives A049480, A005894, A063488, A001845, A063489, A005898, A063490, A057813, A063491, A005902, A063492, A005917, A063493, A063494, A063495, A063496.

Programs

  • Magma
    [(2*n-1)*(n^2-n+6)/6: n in [1..30]]; // G. C. Greubel, Dec 01 2017
    
  • Mathematica
    Table[(2n-1)(n^2-n+6)/6,{n,50}] (* or *) LinearRecurrence[{4,-6,4,-1},{1,4,10,21},50] (* Harvey P. Dale, Jan 01 2012 *)
  • PARI
    a(n)=(2*n-1)*(n^2-n+6)/6 \\ Charles R Greathouse IV, Sep 24 2015
    
  • PARI
    x='x+O('x^30); Vec(serlaplace((-6 + 12*x + 3*x^2 + 2*x^3)*exp(x)/6 + 1)) \\ G. C. Greubel, Dec 01 2017

Formula

From Harvey P. Dale, Jan 01 2012: (Start)
G.f.: x*(x^3 + 1)/(x-1)^4.
a(n) = 4*a(n-1)-6*a(n-2)+4*a(n-3)-a(n-4); a(1)=1, a(2)=4, a(3)=10, a(4)=21. (End)
E.g.f.: (-6 + 12*x + 3*x^2 + 2*x^3)*exp(x)/6 + 1. - G. C. Greubel, Dec 01 2017

A132366 Partial sum of centered tetrahedral numbers A005894.

Original entry on oeis.org

1, 6, 21, 56, 125, 246, 441, 736, 1161, 1750, 2541, 3576, 4901, 6566, 8625, 11136, 14161, 17766, 22021, 27000, 32781, 39446, 47081, 55776, 65625, 76726, 89181, 103096, 118581, 135750, 154721, 175616, 198561, 223686, 251125, 281016, 313501, 348726, 386841
Offset: 0

Views

Author

Jonathan Vos Post, Nov 09 2007

Keywords

Comments

From Robert A. Russell, Oct 09 2020: (Start)
a(n-1) is the number of achiral colorings of the 5 tetrahedral facets (or vertices) of a regular 4-dimensional simplex using n or fewer colors. An achiral arrangement is identical to its reflection. The 4-dimensional simplex is also called a 5-cell or pentachoron. Its Schläfli symbol is {3,3,3}.
There are 60 elements in the automorphism group of the 4-dimensional simplex that are not in its rotation group. Each is an odd permutation of the vertices and can be associated with a partition of 5 based on the conjugacy class of the permutation. The first formula for a(n-1) is obtained by averaging their cycle indices after replacing x_i^j with n^j according to the Pólya enumeration theorem.
Partition Count Odd Cycle Indices
41 30 x_1x_4^1
32 20 x_2^1x_3^1
2111 10 x_1^3x_2^1 (End)

Crossrefs

Cf. A337895 (oriented), A000389(n+4) (unoriented), A000389 (chiral), A331353 (5-cell edges, faces), A337955 (8-cell vertices, 16-cell facets), A337958 (16-cell vertices, 8-cell facets), A338951 (24-cell), A338967 (120-cell, 600-cell).
a(n-1) = A325001(4,n).

Programs

  • Mathematica
    Do[Print[n, " ", (n^4 + 4 n^3 + 11 n^2 + 14 n + 6)/6 ], {n, 0, 10000}]
    Accumulate[Table[(2n+1)(n^2+n+3)/3,{n,0,40}]] (* or *) LinearRecurrence[ {5,-10,10,-5,1},{1,6,21,56,125},40] (* Harvey P. Dale, Feb 26 2020 *)

Formula

a(n) = (n^4 + 4*n^3 + 11*n^2 + 14*n + 6)/6 = (n^2+2*n+6)*(n+1)^2/6.
G.f.: -(x+1)*(x^2+1) / (x-1)^5. - Colin Barker, May 04 2013
From Robert A. Russell, Oct 09 2020: (Start)
a(n-1) = n^2 * (5 + n^2) / 6.
a(n-1) = binomial(n+4,5) - binomial(n,5) = A000389(n+4) - A000389(n).
a(n-1) = 1*C(n,1) + 4*C(n,2) + 6*C(n,3) + 4*C(n,4), where the coefficient of C(n,k) is the number of achiral colorings using exactly k colors.
a(n-1) = 2*A000389(n+4) - A337895(n) = A337895(n) - 2*A000389(n) .
G.f. for a(n-1): x * (x+1) * (x^2+1) / (1-x)^5. (End)
From Amiram Eldar, Feb 14 2023: (Start)
Sum_{n>=0} 1/a(n) = Pi^2/5 + 3/25 - 3*Pi*coth(sqrt(5)*Pi)/(5*sqrt(5)).
Sum_{n>=0} (-1)^n/a(n) = Pi^2/10 - 3/25 + 3*Pi*cosech(sqrt(5)*Pi)/(5*sqrt(5)). (End)
a(n) = A006007(n) + A006007(n+1) = A002415(n) + A002415(n+2). - R. J. Mathar, Jun 05 2025

Extensions

Corrected offset, Mathematica program by Tomas J. Bulka (tbulka(AT)rodincoil.com), Sep 02 2009

A201042 T(n,k)=Number of -k..k arrays of n elements with adjacent element differences also in -k..k.

Original entry on oeis.org

3, 5, 7, 7, 19, 17, 9, 37, 75, 41, 11, 61, 203, 295, 99, 13, 91, 429, 1111, 1161, 239, 15, 127, 781, 3011, 6083, 4569, 577, 17, 169, 1287, 6691, 21141, 33305, 17981, 1393, 19, 217, 1975, 13021, 57343, 148433, 182349, 70763, 3363, 21, 271, 2873, 23045, 131781
Offset: 1

Views

Author

R. H. Hardin Nov 26 2011

Keywords

Comments

Table starts
....3.......5........7.........9.........11..........13..........15
....7......19.......37........61.........91.........127.........169
...17......75......203.......429........781........1287........1975
...41.....295.....1111......3011.......6691.......13021.......23045
...99....1161.....6083.....21141......57343......131781......268983
..239....4569....33305....148433.....491429.....1333683.....3139529
..577...17981...182349...1042167....4211559....13497523....36644243
.1393...70763...998383...7317185...36093157...136601483...427707523
.3363..278483..5466269..51374875..309319197..1382473365..4992154799
.8119.1095951.29928491.360709449.2650872719.13991301963.58267877227

Examples

			Some solutions for n=4 k=7
.-5...-1....2....2...-3....4...-4....4....5....2...-6...-1....1....4....2....0
.-3....0....3....1....2....4...-3....4....2...-5....1....6....5....7....4....0
.-5...-5...-4...-3....2...-2....1....5....7...-7....0....2....4....1....1....2
.-7...-1....2...-6....1...-1...-5....7....0...-1...-5....6...-3....5...-1....2
		

Crossrefs

Column 1 is A001333(n+1)
Column 2 is A126392
Column 3 is A126475
Column 4 is A126504
Column 5 is A126532
Row 1 is A004273(n+1)
Row 2 is A003215
Row 3 is A063494(n+1)

Formula

Empirical for columns:
k=1: a(n) = 2*a(n-1) +a(n-2)
k=2: a(n) = 4*a(n-1) -a(n-3)
k=3: a(n) = 5*a(n-1) +3*a(n-2) -2*a(n-3) -a(n-4)
k=4: a(n) = 7*a(n-1) +a(n-2) -6*a(n-3) +a(n-5)
k=5: a(n) = 8*a(n-1) +6*a(n-2) -9*a(n-3) -5*a(n-4) +2*a(n-5) +a(n-6)
k=6: a(n) = 10*a(n-1) +3*a(n-2) -18*a(n-3) -a(n-4) +8*a(n-5) -a(n-7)
k=7: a(n) = 11*a(n-1) +10*a(n-2) -24*a(n-3) -15*a(n-4) +13*a(n-5) +7*a(n-6) -2*a(n-7) -a(n-8)
Empirical for rows:
n=1: a(k) = 2*k + 1
n=2: a(k) = 3*k^2 + 3*k + 1
n=3: a(k) = (14/3)*k^3 + 7*k^2 + (13/3)*k + 1
n=4: a(k) = (29/4)*k^4 + (29/2)*k^3 + (51/4)*k^2 + (11/2)*k + 1
n=5: a(k) = (169/15)*k^5 + (169/6)*k^4 + 32*k^3 + (119/6)*k^2 + (101/15)*k + 1
n=6: a(k) = (2101/120)*k^6 + (2101/40)*k^5 + (1753/24)*k^4 + (1405/24)*k^3 + (569/20)*k^2 + (119/15)*k + 1
n=7: a(k) = (17141/630)*k^7 + (17141/180)*k^6 + (28177/180)*k^5 + (2759/18)*k^4 + (17299/180)*k^3 + (6929/180)*k^2 + (1921/210)*k + 1

A193218 Number of vertices in truncated tetrahedron with faces that are centered polygons.

Original entry on oeis.org

1, 21, 95, 259, 549, 1001, 1651, 2535, 3689, 5149, 6951, 9131, 11725, 14769, 18299, 22351, 26961, 32165, 37999, 44499, 51701, 59641, 68355, 77879, 88249, 99501, 111671, 124795, 138909, 154049, 170251, 187551, 205985, 225589, 246399, 268451, 291781, 316425
Offset: 1

Views

Author

Craig Ferguson, Jul 18 2011

Keywords

Comments

The sequence starts with a central vertex and expands outward with (n-1) centered polygonal pyramids producing a truncated tetrahedron. Each iteration requires the addition of (n-2) edges and (n-1) vertices to complete the centered polygon in each face. For centered triangles see A005448 and centered hexagons A003215.
This sequence is the 18th in the series (1/12)*t*(2*n^3-3*n^2+n)+2*n-1 for t = 2, 4, 6, ... gives A049480, A005894, A063488, A001845, A063489, A005898, A063490, A057813, A063491, A005902, A063492, A005917, A063493, A063494, A063495, A063496 and t = 36. While adjusting for offsets, the beginning sequence A049480 is generated by adding the square pyramidal numbers A000330 to the odd numbers A005408 and each subsequent sequence is found by adding another set of square pyramidals A000330. (T/2) * A000330(n) + A005408(n). At 30 * A000330 + A005408 = centered dodecahedral numbers, 36 * A000330 + A005408 = A193228 truncated octahedron and 90 * A000330 + A005408 = A193248 = truncated icosahedron and dodecahedron. All five of the "Centered Platonic Solids" numbers sequences are in this series of sequences. Also 4 out of five of the "truncated" platonic solid number sequences are in this series. - Bruce J. Nicholson, Jul 06 2018
It would be good to have a detailed description of how the sequence is constructed. Maybe in the Examples section? - N. J. A. Sloane, Sep 07 2018

Crossrefs

Cf. A260810 (partial sums).

Programs

  • Magma
    [6*n^3-9*n^2+5*n-1: n in [1..40]]; // Vincenzo Librandi, Aug 30 2011
  • Mathematica
    Table[6 n^3 - 9 n^2 + 5 n - 1, {n, 35}] (* Alonso del Arte, Jul 18 2011 *)
    CoefficientList[Series[(1+x)*(x^2+16*x+1)/(1-x)^4, {x, 0, 50}], x] (* Stefano Spezia, Sep 04 2018 *)

Formula

a(n) = 6*n^3 - 9*n^2 + 5*n - 1.
G.f.: x*(1+x)*(x^2+16*x+1) / (1-x)^4. - R. J. Mathar, Aug 26 2011
a(n) = 18 * A000330(n-1) + A005408(n-1) = A063496(n) + A006331(n-1). - Bruce J. Nicholson, Jul 06 2018
Previous Showing 11-18 of 18 results.