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 21-30 of 43 results. Next

A303299 Generalized 22-gonal (or icosidigonal) numbers: m*(10*m - 9) with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 19, 22, 58, 63, 117, 124, 196, 205, 295, 306, 414, 427, 553, 568, 712, 729, 891, 910, 1090, 1111, 1309, 1332, 1548, 1573, 1807, 1834, 2086, 2115, 2385, 2416, 2704, 2737, 3043, 3078, 3402, 3439, 3781, 3820, 4180, 4221, 4599, 4642, 5038, 5083, 5497, 5544, 5976, 6025, 6475, 6526, 6994, 7047, 7533, 7588
Offset: 0

Views

Author

Omar E. Pol, Jun 23 2018

Keywords

Comments

Partial sums of A317318. - Omar E. Pol, Jul 28 2018
Exponents in expansion of Product_{n >= 1} (1 + x^(20*n-19))*(1 + x^(20*n-1))*(1 - x^(20*n)) = 1 + x + x^19 + x^22 + x^58 + .... - Peter Bala, Dec 10 2020

Links

Crossrefs

Cf. A051874, A317318.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), this sequence (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

Programs

  • Maple
    a:= n-> (m-> m*(10*m-9))(-ceil(n/2)*(-1)^n):
seq(a(n), n=0..60);  # Alois P. Heinz, Jun 23 2018
  • Mathematica
    CoefficientList[ Series[-x (x^2 + 18x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 50}], x] (* or *)LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 19, 22, 58}, 51] (* Robert G. Wilson v, Jul 28 2018 *)
nn=30; Sort[Table[n (10 n - 9), {n, -nn, nn}]] (* Vincenzo Librandi, Jul 29 2018 *)
  • PARI
    a(n) = n++; my(m = (-1) ^ n * (n >> 1)); m * (10 * m - 9) \\ David A. Corneth, Jun 23 2018
  • PARI
    concat(0, Vec(x*(1 + 18*x + x^2) / ((1 - x)^3*(1 + x)^2) + O(x^60))) \\ Colin Barker, Jun 23 2018

Formula

From Colin Barker, Jun 23 2018: (Start)
G.f.: x*(1 + 18*x + x^2) / ((1 - x)^3*(1 + x)^2).
a(n) = (5*n^2 + 9*n)/2 for n even.
a(n) = (5*n^2 + n - 4)/2 for n odd.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n>4.
(End)
Sum_{n>=1} 1/a(n) = (10 + 9*sqrt(5+2*sqrt(5))*Pi)/81. - Amiram Eldar, Mar 01 2022

A303303 Generalized 23-gonal (or icositrigonal) numbers: m*(21*m - 19)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 20, 23, 61, 66, 123, 130, 206, 215, 310, 321, 435, 448, 581, 596, 748, 765, 936, 955, 1145, 1166, 1375, 1398, 1626, 1651, 1898, 1925, 2191, 2220, 2505, 2536, 2840, 2873, 3196, 3231, 3573, 3610, 3971, 4010, 4390, 4431, 4830, 4873, 5291, 5336, 5773, 5820, 6276, 6325, 6800, 6851, 7345, 7398, 7911, 7966
Offset: 0

Views

Author

Omar E. Pol, Jun 24 2018

Keywords

Comments

168*a(n) + 361 is a square. - Bruno Berselli, Jul 10 2018
Partial sums of A317319. - Omar E. Pol, Jul 28 2018

Links

Crossrefs

Cf. A051875, A317319.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), this sequence (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

Programs

  • Mathematica
    CoefficientList[ Series[-x (x^2 + 19x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 50}], x] (* or *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 20, 23, 61}, 51] (* Robert G. Wilson v, Jul 28 2018 *)
  • PARI
    concat(0, Vec(x*(1 + 19*x + x^2) / ((1 - x)^3*(1 + x)^2) + O(x^50))) \\ Colin Barker, Jun 27 2018

Formula

From Colin Barker, Jun 27 2018: (Start)
G.f.: x*(1 + 19*x + x^2) / ((1 - x)^3*(1 + x)^2).
a(n) = n*(21*n + 38) / 8 for n even.
a(n) = (21*n - 17)*(n + 1) / 8 for n odd.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n>4.
(End)
Sum_{n>=1} 1/a(n) = 42/361 + 2*Pi*cot(2*Pi/21)/19. - Amiram Eldar, Mar 01 2022

A303304 Generalized 25-gonal (or icosipentagonal) numbers: m*(23*m - 21)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 22, 25, 67, 72, 135, 142, 226, 235, 340, 351, 477, 490, 637, 652, 820, 837, 1026, 1045, 1255, 1276, 1507, 1530, 1782, 1807, 2080, 2107, 2401, 2430, 2745, 2776, 3112, 3145, 3502, 3537, 3915, 3952, 4351, 4390, 4810, 4851, 5292, 5335, 5797, 5842, 6325, 6372, 6876, 6925
Offset: 0

Views

Author

Omar E. Pol, Jul 10 2018

Keywords

Comments

Numbers k for which 184*k + 441 is a square. - Bruno Berselli, Jul 10 2018
Partial sums of A317321. - Omar E. Pol, Jul 28 2018

Links

Crossrefs

Cf. A255184, A317321.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), this sequence (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

Programs

  • GAP
    a:=[0,1,22,25,67];;  for n in [6..50] do a[n]:=a[n-1]+2*a[n-2]-2*a[n-3]-a[n-4]+a[n-5]; od; a; # Muniru A Asiru, Jul 10 2018
  • Maple
    seq(coeff(series(x*(x^2+21*x+1)/((1-x)^3*(1+x)^2), x,n+1),x,n),n=0..50); # Muniru A Asiru, Jul 10 2018
  • Mathematica
    CoefficientList[Series[x (1 + 21 x + x^2)/((1 - x)^3*(1 + x)^2), {x, 0, 49}], x] (* or *)
Array[PolygonalNumber[25, (1 - 2 Boole[EvenQ@ #]) Ceiling[#/2]] &, 50, 0] (* Michael De Vlieger, Jul 10 2018 *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 22, 25, 67}, 50] (* Robert G. Wilson v, Jul 15 2018 *)
  • PARI
    concat(0, Vec(x*(1 + 21*x + x^2) / ((1 - x)^3*(1 + x)^2) + O(x^40))) \\ Colin Barker, Jul 10 2018

Formula

From Colin Barker, Jul 10 2018: (Start)
G.f.: x*(1 + 21*x + x^2) / ((1 - x)^3*(1 + x)^2).
a(n) = n*(23*n + 42)/8 for n even.
a(n) = (23*n - 19)*(n + 1)/8 for n odd.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n>4.
(End)
Sum_{n>=1} 1/a(n) = 46/441 + 2*Pi*cot(2*Pi/23)/21. - Amiram Eldar, Mar 01 2022

A303812 Generalized 28-gonal (or icosioctagonal) numbers: m*(13*m - 12) with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 25, 28, 76, 81, 153, 160, 256, 265, 385, 396, 540, 553, 721, 736, 928, 945, 1161, 1180, 1420, 1441, 1705, 1728, 2016, 2041, 2353, 2380, 2716, 2745, 3105, 3136, 3520, 3553, 3961, 3996, 4428, 4465, 4921, 4960, 5440, 5481, 5985, 6028, 6556, 6601, 7153, 7200, 7776, 7825, 8425, 8476, 9100, 9153
Offset: 0

Views

Author

Omar E. Pol, Jun 12 2018

Keywords

Comments

Partial sums of A317324. - Omar E. Pol, Jul 28 2018

Links

Crossrefs

Cf. A161935, A303814, A303815, A317324.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), this sequence (k=28), A303815 (k=29), A316729 (k=30).

Programs

  • Magma
    I:=[0,1,25,28,76]; [n le 5 select I[n] else Self(n-1)+2*Self(n-2)-2*Self(n-3)-Self(n-4)+Self(n-5): n in [1..60]]; // Vincenzo Librandi, Jun 23 2018
  • Mathematica
    With[{nn = 54, s = 28}, {0}~Join~Riffle[Array[PolygonalNumber[s, #] &, Ceiling[nn/2]], Array[PolygonalNumber[s, -#] &, Ceiling[nn/2]]]] (* Michael De Vlieger, Jun 14 2018 *)
CoefficientList[Series[x (1 + 24 x + x^2) / ((1 + x)^2 (1 - x)^3), {x, 0, 60}], x] (* Vincenzo Librandi, Jun 23 2018 *)

Formula

G.f.: x*(1 + 24*x + x^2) / ((1 + x)^2*(1 - x)^3). - Vincenzo Librandi, Jun 23 2018
From Amiram Eldar, Mar 01 2022: (Start)
a(n) = (26*n*(n + 1) + 11*(2*n + 1)*(-1)^n - 11)/8.
a(n) = n*(13*n + 24)/4, if n is even, or (n + 1)*(13*n - 11)/4 otherwise.
Sum_{n>=1} 1/a(n) = 13/144 + Pi*cot(Pi/13)/12. (End)

A303814 Generalized 24-gonal (or icositetragonal) numbers: m*(11*m - 10) with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 21, 24, 64, 69, 129, 136, 216, 225, 325, 336, 456, 469, 609, 624, 784, 801, 981, 1000, 1200, 1221, 1441, 1464, 1704, 1729, 1989, 2016, 2296, 2325, 2625, 2656, 2976, 3009, 3349, 3384, 3744, 3781, 4161, 4200, 4600, 4641, 5061, 5104, 5544, 5589, 6049, 6096, 6576, 6625
Offset: 0

Views

Author

Omar E. Pol, Jun 06 2018

Keywords

Comments

a(25) = 1729 is the Hardy-Ramanujan number.
Numbers k such that 11*k + 25 is a square. - Bruno Berselli, Jun 08 2018
Partial sums of A317320. - Omar E. Pol, Jul 28 2018

Links

Crossrefs

Cf. A051876, A317320.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), this sequence (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

Programs

  • Mathematica
    With[{pp = 24, nn = 55}, {0}~Join~Riffle[Array[PolygonalNumber[pp, #] &, Ceiling[nn/2]], Array[PolygonalNumber[pp, -#] &, Ceiling[nn/2]]]] (* Michael De Vlieger, Jun 06 2018 *)
Table[(22 n (n + 1) + 9 (2 n + 1) (-1)^n - 9)/8, {n, 0, 50}] (* Bruno Berselli, Jun 08 2018 *)
CoefficientList[ Series[-x (x^2 + 20x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 50}], x] (* or *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 21, 24, 64}, 50] (* Robert G. Wilson v, Jul 28 2018 *)
  • PARI
    concat(0, Vec(x*(1 + 20*x + x^2)/((1 + x)^2*(1 - x)^3) + O(x^40))) \\ Colin Barker, Jun 12 2018

Formula

From Bruno Berselli, Jun 08 2018: (Start)
G.f.: x*(1 + 20*x + x^2)/((1 + x)^2*(1 - x)^3).
a(n) = a(-n-1) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
a(n) = (22*n*(n + 1) + 9*(2*n + 1)*(-1)^n - 9)/8. Therefore:
a(n) = n*(11*n + 20)/4, if n is even, or (n + 1)*(11*n - 9)/4 otherwise.
(2*n - 1)*a(n) + (2*n + 1)*a(n-1) - n*(11*n^2 - 10) = 0. (End)
Sum_{n>=1} 1/a(n) = (11 + 10*Pi*cot(Pi/11))/100. - Amiram Eldar, Mar 01 2022

A316724 Generalized 26-gonal (or icosihexagonal) numbers: m*(12*m - 11) with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 23, 26, 70, 75, 141, 148, 236, 245, 355, 366, 498, 511, 665, 680, 856, 873, 1071, 1090, 1310, 1331, 1573, 1596, 1860, 1885, 2171, 2198, 2506, 2535, 2865, 2896, 3248, 3281, 3655, 3690, 4086, 4123, 4541, 4580, 5020, 5061, 5523, 5566, 6050, 6095, 6601, 6648, 7176, 7225, 7775
Offset: 0

Views

Author

Omar E. Pol, Jul 11 2018

Keywords

Comments

48*a(n) + 121 is a square. - Bruno Berselli, Jul 11 2018
Partial sums of A317322. - Omar E. Pol, Jul 28 2018

Links

Crossrefs

Cf. A255185, A317322.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), this sequence (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

Programs

  • Magma
    [(12*n*(n+1) + 5*(-1)^n*(2*n+1) -5)/4: n in [0..60]]; // G. C. Greubel, Sep 24 2024
  • Mathematica
    Table[(12 n (n + 1) + 5 (2 n + 1) (-1)^n - 5)/4, {n, 0, 60}] (* Bruno Berselli, Jul 11 2018 *)
CoefficientList[ Series[-x (x^2 + 22x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 60}], x] (* or *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 23, 26, 70}, 60] (* Robert G. Wilson v, Jul 28 2018 *)
nn=30; Sort[Table[n (12 n - 11), {n, -nn, nn}]] (* Vincenzo Librandi, Jul 29 2018 *)
  • PARI
    concat(0, Vec(x*(1 + 22*x + x^2)/((1 + x)^2*(1 - x)^3) + O(x^60))) \\ Colin Barker, Jul 12 2018
  • SageMath
    [(12*n*(n+1) + 5*(-1)^n*(2*n+1) -5)//4 for n in range(61)] # G. C. Greubel, Sep 24 2024

Formula

From Bruno Berselli, Jul 11 2018: (Start)
O.g.f.: x*(1 + 22*x + x^2)/((1 + x)^2*(1 - x)^3).
a(n) = a(-1-n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
a(n) = (12*n*(n + 1) + 5*(2*n + 1)*(-1)^n - 5)/4. Therefore:
a(n) = n*(6*n + 11)/2 for n even; otherwise, a(n) = (n + 1)*(6*n - 5)/2.
(2*n - 1)*a(n) + (2*n + 1)*a(n-1) - n*(12*n^2 - 11) = 0. (End)
From Amiram Eldar, Mar 01 2022: (Start)
Sum_{n>=1} 1/a(n) = 12/121 + (sqrt(3)+2)*Pi/11.
Sum_{n>=1} (-1)^(n+1)/a(n) = (2*sqrt(3)*log(sqrt(3)+2) + 6*log(2) + 3*log(3))/11 - 12/121. (End)
E.g.f.: (1/4)*(5*(1 - 2*x)*exp(-x) + (-5 + 24*x + 12*x^2)*exp(x)). - G. C. Greubel, Sep 24 2024

A316725 Generalized 27-gonal (or icosiheptagonal) numbers: m*(25*m - 23)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 24, 27, 73, 78, 147, 154, 246, 255, 370, 381, 519, 532, 693, 708, 892, 909, 1116, 1135, 1365, 1386, 1639, 1662, 1938, 1963, 2262, 2289, 2611, 2640, 2985, 3016, 3384, 3417, 3808, 3843, 4257, 4294, 4731, 4770, 5230, 5271, 5754, 5797, 6303, 6348, 6877, 6924, 7476, 7525, 8100, 8151, 8749, 8802
Offset: 0

Views

Author

Omar E. Pol, Jul 11 2018

Keywords

Comments

Note that in the sequences of generalized k-gonal numbers always a(3) = k. In this case k = 27.
Generalized k-gonal numbers are second k-gonal numbers and positive terms of k-gonal numbers interleaved, with k >= 5.
A general formula for the generalized k-gonal numbers is given by m*((k-2)*m-k+4)/2, with m = 0, +1, -1, +2, -2, +3, -3, ..., k >= 5.
Partial sums of A317323. - Omar E. Pol, Jul 28 2018

Links

Crossrefs

Cf. A255186; A317323.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), this sequence (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

Programs

  • GAP
    a:=[0,1,24,27,73];;  for n in [6..60] do a[n]:=a[n-1]+2*a[n-2]-2*a[n-3]-a[n-4]+a[n-5]; od; a; # Muniru A Asiru, Jul 16 2018
  • Maple
    a:= n-> (m-> m*(25*m-23)/2)(-ceil(n/2)*(-1)^n):
seq(a(n), n=0..60);  # Alois P. Heinz, Jul 11 2018
  • Mathematica
    CoefficientList[Series[-x (x^2 + 23x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 53}], x] (* or *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 24, 27, 73, 78, 147}, 53] (* Robert G. Wilson v, Jul 28 2018; corrected by Georg Fischer, Apr 03 2019 *)
nn=30; Sort[Table[n (25 n - 23) / 2, {n, -nn, nn}]] (* Vincenzo Librandi, Jul 29 2018 *)
  • PARI
    concat(0, Vec(x*(1 + 23*x + x^2) / ((1 - x)^3*(1 + x)^2) + O(x^40))) \\ Colin Barker, Jul 11 2018

Formula

From Colin Barker, Jul 11 2018: (Start)
G.f.: x*(1 + 23*x + x^2) / ((1 - x)^3*(1 + x)^2).
a(n) = n*(25*n + 46)/8 for n even.
a(n) = (25*n - 21)*(n + 1)/8 for n odd.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n>4.
(End)
Sum_{n>=1} 1/a(n) = 2*(25 + 23*Pi*cot(2*Pi/25))/529. - Amiram Eldar, Mar 01 2022

A316729 Generalized 30-gonal (or triacontagonal) numbers: m*(14*m - 13) with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 27, 30, 82, 87, 165, 172, 276, 285, 415, 426, 582, 595, 777, 792, 1000, 1017, 1251, 1270, 1530, 1551, 1837, 1860, 2172, 2197, 2535, 2562, 2926, 2955, 3345, 3376, 3792, 3825, 4267, 4302, 4770, 4807, 5301, 5340, 5860, 5901, 6447, 6490, 7062, 7107, 7705, 7752, 8376, 8425, 9075, 9126, 9802, 9855
Offset: 0

Views

Author

Omar E. Pol, Jul 11 2018

Keywords

Comments

Note that in the sequences of generalized k-gonal numbers always a(3) = k. In this case k = 30.
Generalized k-gonal numbers are second k-gonal numbers and positive terms of k-gonal numbers interleaved, with k >= 5.
A general formula for the generalized k-gonal numbers is given by m*((k-2)*m-k+4)/2, with m = 0, +1, -1, +2, -2, +3, -3, ..., k >= 5.
Every sequence of generalized k-gonal numbers can be represented as vertices of a rectangular spiral constructed with line segments on the square grid, with k >= 5.
56*a(n) + 169 is a square. - Vincenzo Librandi, Jul 12 2018
Generalized k-gonal numbers are the partial sums of the sequence formed by the multiples of (k - 4) and the odd numbers (A005408) interleaved, with k >= 5. - Omar E. Pol, Jul 27 2018
Also partial sums of A317326. - Omar E. Pol, Jul 28 2018

Links

Crossrefs

Cf. A254474, A317326.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), this sequence (k=30).

Programs

  • Mathematica
    CoefficientList[Series[x (1 + 26 x + x^2)/((1 + x)^2 (1 - x)^3), {x, 0, 55}], x] (* Vincenzo Librandi, Jul 12 2018 *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 27, 30, 82}, 47] (* Robert G. Wilson v, Jul 28 2018 *)
  • PARI
    concat(0, Vec(x*(1 + 26*x + x^2)/((1 + x)^2*(1 - x)^3) + O(x^40))) \\ Colin Barker, Jul 16 2018

Formula

G.f.: x*(1 + 26*x + x^2)/((1 + x)^2*(1 - x)^3). - Vincenzo Librandi, Jul 12 2018
From Amiram Eldar, Mar 01 2022: (Start)
a(n) = (28*n*(n + 1) + 12*(2*n + 1)*(-1)^n - 12)/8.
a(n) = n*(7*n + 13)/2, if n is even, or (n + 1)*(7*n - 6)/2 otherwise.
Sum_{n>=1} 1/a(n) = 14/169 + Pi*cot(Pi/14)/13. (End)

Extensions

Duplicated term (1551) deleted by Colin Barker, Jul 16 2018

A049598 12 times triangular numbers.

Original entry on oeis.org

0, 12, 36, 72, 120, 180, 252, 336, 432, 540, 660, 792, 936, 1092, 1260, 1440, 1632, 1836, 2052, 2280, 2520, 2772, 3036, 3312, 3600, 3900, 4212, 4536, 4872, 5220, 5580, 5952, 6336, 6732, 7140, 7560, 7992, 8436, 8892, 9360, 9840, 10332, 10836, 11352
Offset: 0

Views

Author

Joe Keane (jgk(AT)jgk.org)

Keywords

Comments

a(n-1) is the Wiener index of the helm graph H(n) (n>=3). The graph H(n) is obtained from an n-wheel graph (on n+1 nodes) by adjoining a pendant edge at each node of the cycle. The Wiener index of a connected graph is the sum of the distances between all unordered pairs of vertices in the graph. The Wiener polynomial of H(n) is (1/2)*n*t*((n-3)t^3 + 2(n-2)t^2 + (n+3)t + 6). - Emeric Deutsch, Sep 28 2010
Also sequence found by reading the line from 0, in the direction 0, 12, ..., and the same line from 0, in the direction 0, 36, ..., in the square spiral whose vertices are the generalized tetradecagonal numbers A195818. Axis perpendicular to A195158 in the same spiral. - Omar E. Pol, Sep 29 2011
Also the Wiener index of the (n+1)-gear graph. - Eric W. Weisstein, Sep 08 2017

Examples

			a(1) = 12*1 + 0 = 12;
a(2) = 12*2 + 12 = 36;
a(3) = 12*3 + 36 = 72.

Links

Crossrefs

Cf. A000217, A001844, A003154, A027468, A035008, A073577.

Programs

  • Mathematica
    12 * Accumulate[Range[0, 50]] (* Harvey P. Dale, Feb 05 2013 *)
(* Start from Eric W. Weisstein, Sep 08 2017 *)
Table[6 n (n + 1), {n, 0, 20}]
12 PolygonalNumber[3, Range[0, 20]]
12 Binomial[Range[20], 2]
LinearRecurrence[{3, -3, 1}, {12, 36, 72}, {0, 20}]
(* End *)
  • PARI
    a(n)=6*n*(n+1) \\ Charles R Greathouse IV, Jun 17 2017

Formula

a(n) = 6*n*(n+1).
G.f.: 12*x/(1-x)^3.
a(n) = 12*A000217(n). - Omar E. Pol, Dec 11 2008
a(n) = 12*n + a(n-1) (with a(0)=0). - Vincenzo Librandi, Aug 06 2010
a(n) = A003154(n+1) - 1. - Omar E. Pol, Oct 03 2011
a(n) = A032528(2*n+1) - 1. - Adriano Caroli, Jul 19 2013
a(n) = A001844(n) + A073577(n). - Bruce J. Nicholson, Aug 06 2017
E.g.f.: 6*x*(x+2)*exp(x). - G. C. Greubel, Aug 23 2017
From Amiram Eldar, Feb 15 2022: (Start)
Sum_{n>=1} 1/a(n) = 1/6.
Sum_{n>=1} (-1)^(n+1)/a(n) = log(2)/3 - 1/6. (End)
From Amiram Eldar, Feb 21 2023: (Start)
Product_{n>=1} (1 - 1/a(n)) = -(6/Pi)*cos(sqrt(5/3)*Pi/2).
Product_{n>=1} (1 + 1/a(n)) = (6/Pi)*cos(Pi/(2*sqrt(3))). (End)

A195152 Square array read by antidiagonals with T(n,k) = n*((k+2)*n-k)/2, n=0, +- 1, +- 2,..., k>=0.

Original entry on oeis.org

0, 1, 0, 1, 1, 0, 4, 2, 1, 0, 4, 5, 3, 1, 0, 9, 7, 6, 4, 1, 0, 9, 12, 10, 7, 5, 1, 0, 16, 15, 15, 13, 8, 6, 1, 0, 16, 22, 21, 18, 16, 9, 7, 1, 0, 25, 26, 28, 27, 21, 19, 10, 8, 1, 0, 25, 35, 36, 34, 33, 24, 22, 11, 9, 1, 0, 36, 40, 45, 46, 40, 39, 27, 25, 12, 10, 1, 0
Offset: 0

Views

Author

Omar E. Pol, Sep 14 2011

Keywords

Comments

Also, column k lists the partial sums of the column k of A195151. The first differences in row n are always the n-th term of the triangular numbers repeated 0,0,1,1,3,3,6,6,... ([0,0] together with A008805).
Also, for k >= 1, this is a table of generalized polygonal numbers since column k lists the generalized m-gonal numbers, where m = k+4, for example: if k = 1 then m = 5, so the column 1 lists the generalized pentagonal numbers A001318 (see example).

Examples

			Array begins:
.  0,   0,   0,   0,   0,   0,   0,   0,   0,   0,...
.  1,   1,   1,   1,   1,   1,   1,   1,   1,   1,...
.  1,   2,   3,   4,   5,   6,   7,   8,   9,  10,...
.  4,   5,   6,   7,   8,   9,  10,  11,  12,  13,...
.  4,   7,  10,  13,  16,  19,  22,  25,  28,  31,...
.  9,  12,  15,  18,  21,  24,  27,  30,  33,  36,...
.  9,  15,  21,  27,  33,  39,  45,  51,  57,  63,...
. 16,  22,  28,  34,  40,  46,  52,  58,  64,  70,...
. 16,  26,  36,  46,  56,  66,  76,  86,  96, 106,...
. 25,  35,  45,  55,  65,  75,  85,  95, 105, 115,...
. 25,  40,  55,  70,  85, 100, 115, 130, 145, 160,...
...

Crossrefs

Rows: A000004, A000012, A000027.
Column 0 gives A008794, except its first term.
Columns >= 1: A001318, (A000217), A085787, A001082, A118277, A074377, A195160, A195162, A195313, A195818.
Cf. A008805, A152151.

Formula

T(n,k) = (k+2)*n*(n+1)/8+(k-2)*((2*n+1)*(-1)^n-1)/16, n >= 0 and k >= 0. - Omar E. Pol, Oct 01 2011
Previous Showing 21-30 of 43 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.