A195158 -id:A195158 - cp's OEIS frontend

A049598 12 times triangular numbers.

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

Joe Keane (jgk(AT)jgk.org)

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

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

G. C. Greubel, Table of n, a(n) for n = 0..5000
B. E. Sagan, Y-N. Yeh and P. Zhang, The Wiener Polynomial of a Graph, Internat. J. of Quantum Chem., Vol. 60 (1996), pp. 959-969.
Leo Tavares, Illustration: Centroid Stars.
Eric Weisstein's World of Mathematics, Gear Graph.
Eric Weisstein's World of Mathematics, Helm Graph.
Eric Weisstein's World of Mathematics, Wiener Index.
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

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

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

a(n)=6*n*(n+1) \\ Charles R Greathouse IV, Jun 17 2017

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)

A195040 Square array read by antidiagonals with T(n,k) = kn^2/4+(k-4)((-1)^n-1)/8, n>=0, k>=0.

Original entry on oeis.org

0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 3, 2, 1, 0, 1, 4, 5, 3, 1, 0, 0, 7, 8, 7, 4, 1, 0, 1, 9, 13, 12, 9, 5, 1, 0, 0, 13, 18, 19, 16, 11, 6, 1, 0, 1, 16, 25, 27, 25, 20, 13, 7, 1, 0, 0, 21, 32, 37, 36, 31, 24, 15, 8, 1, 0, 1, 25, 41, 48, 49, 45, 37, 28, 17, 9, 1, 0

Offset: 0

Omar E. Pol, Sep 27 2011

Also, if k >= 2 and m = 2*k, then column k lists the numbers of the form k*n^2 and the centered m-gonal numbers interleaved.
For k >= 3, this is also a table of concentric polygonal numbers. Column k lists the concentric k-gonal numbers.
It appears that the first differences of column k are the numbers that are congruent to {1, k-1} mod k, if k >= 3.

			Array begins:
  0,   0,   0,   0,   0,   0,   0,   0,   0,   0, ...
  1,   1,   1,   1,   1,   1,   1,   1,   1,   1, ...
  0,   1,   2,   3,   4,   5,   6,   7,   8,   9, ...
  1,   3,   5,   7,   9,  11,  13,  15,  17,  19, ...
  0,   4,   8,  12,  16,  20,  24,  28,  32,  36, ...
  1,   7,  13,  19,  25,  31,  37,  43,  49,  55, ...
  0,   9,  18,  27,  36,  45,  54,  63,  72,  81, ...
  1,  13,  25,  37,  49,  61,  73,  85,  97, 109, ...
  0,  16,  32,  48,  64,  80,  96, 112, 128, 144, ...
  1,  21,  41,  61,  81, 101, 121, 141, 161, 181, ...
  0,  25,  50,  75, 100, 125, 150, 175, 200, 225, ...
  ...

Muniru A Asiru, Rows n=0..100, flattened

Rows n: A000004 (n=0), A000012 (n=1), A001477 (n=2), A005408 (n=3), A008586 (n=4), A016921 (n=5), A008591 (n=6), A017533 (n=7), A008598 (n=8), A215145 (n=9), A008607 (n=10).

Columns k: A000035 (k=0), A004652 (k=1), A000982 (k=2), A077043 (k=3), A000290 (k=4), A032527 (k=5), A032528 (k=6), A195041 (k=7), A077221 (k=8), A195042 (k=9), A195142 (k=10), A195043 (k=11), A195143 (k=12), A195045 (k=13), A195145 (k=14), A195046 (k=15), A195146 (k=16), A195047 (k=17), A195147 (k=18), A195048 (k=19), A195148 (k=20), A195049 (k=21), A195149 (k=22), A195058 (k=23), A195158 (k=24).

nmax:=13;; T:=List([0..nmax],n->List([0..nmax],k->k*n^2/4+(k-4)*((-1)^n-1)/8));; b:=List([2..nmax],n->OrderedPartitions(n,2));;
a:=Flat(List([1..Length(b)],i->List([1..Length(b[i])],j->T[b[i][j][2]][b[i][j][1]]))); # Muniru A Asiru, Jul 19 2018

A195040 := proc(n,k)
        k*n^2/4+((-1)^n-1)*(k-4)/8 ;
end proc:
for d from 0 to 12 do
        for k from 0 to d do
                printf("%d,",A195040(d-k,k)) ;
        end do:
end do; # R. J. Mathar, Sep 28 2011

t[n_, k_] := k*n^2/4+(k-4)*((-1)^n-1)/8; Flatten[ Table[ t[n-k, k], {n, 0, 11}, {k, 0, n}]] (* Jean-François Alcover, Dec 14 2011 *)

A195058 Concentric 23-gonal numbers.

Original entry on oeis.org

0, 1, 23, 47, 92, 139, 207, 277, 368, 461, 575, 691, 828, 967, 1127, 1289, 1472, 1657, 1863, 2071, 2300, 2531, 2783, 3037, 3312, 3589, 3887, 4187, 4508, 4831, 5175, 5521, 5888, 6257, 6647, 7039, 7452, 7867, 8303, 8741, 9200, 9661, 10143, 10627

Offset: 0

Omar E. Pol, Sep 28 2011

Ivan Panchenko, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (2,0,-2,1).

Column 23 of A195040.

Cf. A032527, A032528, A195049, A195149, A195158.

Table[23n^2/4 + 19((-1)^n - 1)/8, {n, 0, 49}] (* Alonso del Arte, Jan 23 2015 *)
LinearRecurrence[{2,0,-2,1},{0,1,23,47},50] (* Harvey P. Dale, Jul 22 2023 *)

a(n)=23*n^2/4+19*((-1)^n-1)/8 \\ Charles R Greathouse IV, Oct 07 2015

a(n) = 23*n^2/4 + 19*((-1)^n-1)/8.
From Colin Barker, Sep 16 2012: (Start)
a(n) = 2*a(n-1) - 2*a(n-3) + a(n-4).
G.f.: x*(1 + 21*x + x^2)/((1-x)^3*(1+x)). (End)
Sum_{n>=1} 1/a(n) = Pi^2/138 + tan(sqrt(19/23)*Pi/2)*Pi/sqrt(437). - Amiram Eldar, Jan 17 2023

A195824 a(n) = 24*n^2.

Original entry on oeis.org

0, 24, 96, 216, 384, 600, 864, 1176, 1536, 1944, 2400, 2904, 3456, 4056, 4704, 5400, 6144, 6936, 7776, 8664, 9600, 10584, 11616, 12696, 13824, 15000, 16224, 17496, 18816, 20184, 21600, 23064, 24576, 26136, 27744, 29400, 31104, 32856, 34656, 36504, 38400, 40344

Offset: 0

Omar E. Pol, Sep 28 2011

Sequence found by reading the line from 0, in the direction 0, 24, ..., in the square spiral whose vertices are the generalized tetradecagonal numbers A195818.

Surface area of a cube with side 2n. - Wesley Ivan Hurt, Aug 05 2014

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Bisection of A195158.

Cf. A000290, A001105, A008606, A016742, A033428, A033581, A135453, A139098, A195818.

[24*n^2 : n in [0..50]]; // Wesley Ivan Hurt, Aug 05 2014

I:=[0,24,96]; [n le 3 select I[n] else 3*Self(n-1)-3*Self(n-2)+Self(n-3): n in [1..50]]; // Vincenzo Librandi, Aug 06 2014

A195824:=n->24*n^2: seq(A195824(n), n=0..50); # Wesley Ivan Hurt, Aug 05 2014

24 Range[0, 30]^2 (* or *) Table[24 n^2, {n, 0, 30}] (* or *) CoefficientList[Series[24 x (1 + x)/(1 - x)^3, {x, 0, 30}], x] (* Wesley Ivan Hurt, Aug 05 2014 *)
LinearRecurrence[{3,-3,1},{0,24,96},40] (* Harvey P. Dale, Nov 11 2017 *)

a(n) = 24*n^2; \\ Michel Marcus, Aug 05 2014

a(n) = 24*A000290(n) = 12*A001105(n) = 8*A033428(n) = 6*A016742(n) = 4*A033581(n) = 3*A139098(n) = 2*A135453(n).
From Wesley Ivan Hurt, Aug 05 2014: (Start)
G.f.: 24*x*(1+x)/(1-x)^3.
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3). (End)
From Elmo R. Oliveira, Dec 01 2024: (Start)
E.g.f.: 24*x*(1 + x)*exp(x).
a(n) = n*A008606(n) = A195158(2*n). (End)

A270693 Alternating sum of centered 25-gonal numbers.

Original entry on oeis.org

1, -25, 51, -100, 151, -225, 301, -400, 501, -625, 751, -900, 1051, -1225, 1401, -1600, 1801, -2025, 2251, -2500, 2751, -3025, 3301, -3600, 3901, -4225, 4551, -4900, 5251, -5625, 6001, -6400, 6801, -7225, 7651, -8100, 8551, -9025, 9501, -10000, 10501

Offset: 0

Ilya Gutkovskiy, Mar 21 2016

The absolute value alternating sum of centered k-gonal numbers gives concentric k-gonal numbers.

More generally, the ordinary generating function for the alternating sum of centered k-gonal numbers is (1 - (k - 2)*x + x^2)/((1 - x)*(1 + x)^3).

OEIS Wiki, Centered polygonal numbers
Eric Weisstein's World of Mathematics, Centered Polygonal Number
Index entries for linear recurrences with constant coefficients, signature (-2,0,2,1).

Cf. A262221 (centered 25-gonal numbers).

Cf. A032527, A032528, A077043, A077221, A195041, A195042, A195045, A195046, A195047, A195048, A195049, A195058, A195142, A195043, A195143, A195145, A195146, A195147, A195148, A195149, A195158.

[((-1)^n*(50*n^2 + 100*n + 29) - 21)/8 : n in [0..40]]; // Wesley Ivan Hurt, Mar 21 2016

A270693:=n->((-1)^n*(50*n^2 + 100*n + 29) - 21)/8: seq(A270693(n), n=0..100); # Wesley Ivan Hurt, Sep 18 2017

LinearRecurrence[{-2, 0, 2, 1}, {1, -25, 51, -100}, 41]
Table[((-1)^n (50 n^2 + 100 n + 29) - 21)/8, {n, 0, 40}]

x='x+O('x^100); Vec((1-23*x+x^2)/((1-x)*(1+x)^3)) \\ Altug Alkan, Mar 21 2016

G.f.: (1 - 23*x + x^2)/((1 - x)*(1 + x)^3).
E.g.f.: (1/8)*(-21*exp(x) + (29 - 150*x + 50*x^2)*exp(-x)).
a(n) = -2*a(n-1) + 2*a(n-3) + a(n-4).
a(n) = ((-1)^n*(50*n^2 + 100*n + 29) - 21)/8.

cp's OEIS Frontend

A049598 12 times triangular numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

GAP

Maple

Mathematica

A195058 Concentric 23-gonal numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A195824 a(n) = 24*n^2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Magma

Maple

Mathematica

PARI

Formula

A270693 Alternating sum of centered 25-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

A195040 Square array read by antidiagonals with T(n,k) = kn^2/4+(k-4)((-1)^n-1)/8, n>=0, k>=0.