A195049 -id:A195049 - cp's OEIS frontend

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

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

A195149 Concentric 22-gonal numbers.

Original entry on oeis.org

0, 1, 22, 45, 88, 133, 198, 265, 352, 441, 550, 661, 792, 925, 1078, 1233, 1408, 1585, 1782, 1981, 2200, 2421, 2662, 2905, 3168, 3433, 3718, 4005, 4312, 4621, 4950, 5281, 5632, 5985, 6358, 6733, 7128, 7525, 7942, 8361, 8800, 9241, 9702, 10165, 10648, 11133

Offset: 0

Omar E. Pol, Sep 17 2011

Sequence found by reading the line from 0, in the direction 0, 22,..., and the same line from 1, in the direction 1, 45,..., in the square spiral whose vertices are the generalized tridecagonal numbers A195313. Main axis, perpendicular to A152740 in the same spiral.

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

A195323 and A195318 interleaved.
Cf. A032528, A077221, A195142, A195143, A195145, A195146, A195147, A195148.
Cf. A032527, A195049, A195058. Column 22 of A195040. - Omar E. Pol, Sep 29 2011

[(22*n^2+9*(-1)^n-9)/4: n in [0..50]]; // Vincenzo Librandi, Sep 27 2011

A195149:=n->(22*n^2+9*(-1)^n-9)/4: seq(A195149(n), n=0..50); # Wesley Ivan Hurt, Jul 07 2014

Table[(22*n^2 + 9*(-1)^n - 9)/4, {n, 0, 50}] (* Wesley Ivan Hurt, Jul 07 2014 *)

a(n)=(22*n^2+9*(-1)^n-9)/4 \\ Charles R Greathouse IV, Sep 24 2015

G.f.: -x*(1+20*x+x^2) / ( (1+x)*(x-1)^3 ). - R. J. Mathar, Sep 18 2011
a(n) = (22*n^2+9*(-1)^n-9)/4; a(n) = -a(n-1)+11*n^2-11*n+1. - Vincenzo Librandi, Sep 27 2011
Sum_{n>=1} 1/a(n) = Pi^2/132 + tan(3*Pi/(2*sqrt(11)))*Pi/(6*sqrt(11)). - Amiram Eldar, Jan 17 2023
a(n) = 2*a(n-1) - 2*a(n-3) + a(n-4). - Wesley Ivan Hurt, Jun 19 2025

A195148 Concentric 20-gonal numbers.

Original entry on oeis.org

0, 1, 20, 41, 80, 121, 180, 241, 320, 401, 500, 601, 720, 841, 980, 1121, 1280, 1441, 1620, 1801, 2000, 2201, 2420, 2641, 2880, 3121, 3380, 3641, 3920, 4201, 4500, 4801, 5120, 5441, 5780, 6121, 6480, 6841, 7220, 7601, 8000, 8401, 8820, 9241, 9680, 10121

Offset: 0

Omar E. Pol, Sep 17 2011

Concentric icosagonal numbers.

Sequence found by reading the line from 0, in the direction 0, 20, ..., and the same line from 1, in the direction 1, 41, ..., in the square spiral whose vertices are the generalized dodecagonal numbers A195162. Main axis, perpendicular to A124080 in the same spiral.

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

A195322 and A195317 interleaved.
Cf. A032528, A077221, A195142, A195143, A195145, A195146, A195147, A195149.
Cf. A032527, A195048, A195049. Column 20 of A195040. - Omar E. Pol, Sep 29 2011

[5*n^2+2*(-1)^n-2: n in [0..50]]; // Vincenzo Librandi, Sep 27 2011

LinearRecurrence[{2,0,-2,1},{0,1,20,41},50] (* Harvey P. Dale, Apr 08 2016 *)

a(n)=5*n^2+2*(-1)^n-2 \\ Charles R Greathouse IV, Sep 28 2015

From Vincenzo Librandi, Sep 27 2011: (Start)
a(n) = 5*n^2 + 2*(-1)^n-2;
a(n) = -a(n-1) + 10*n^2 - 10*n + 1. (End)
G.f.: x*(1+18*x+x^2)/((1+x)*(1-x)^3). - Bruno Berselli, Sep 27 2011
Sum_{n>=1} 1/a(n) = Pi^2/120 + tan(Pi/sqrt(5))*Pi/(8*sqrt(5)). - Amiram Eldar, Jan 17 2023

A195048 Concentric 19-gonal numbers.

Original entry on oeis.org

0, 1, 19, 39, 76, 115, 171, 229, 304, 381, 475, 571, 684, 799, 931, 1065, 1216, 1369, 1539, 1711, 1900, 2091, 2299, 2509, 2736, 2965, 3211, 3459, 3724, 3991, 4275, 4561, 4864, 5169, 5491, 5815, 6156, 6499, 6859, 7221, 7600, 7981, 8379, 8779, 9196

Offset: 0

Omar E. Pol, Sep 27 2011

Also concentric enneadecagonal numbers.

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 19 of A195040.

Cf. A032527, A032528, A195047, A195147, A195148, A195049.

LinearRecurrence[{2,0,-2,1},{0,1,19,39},50] (* Harvey P. Dale, May 17 2016 *)

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

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

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

A064762 a(n) = 21*n^2.

Original entry on oeis.org

0, 21, 84, 189, 336, 525, 756, 1029, 1344, 1701, 2100, 2541, 3024, 3549, 4116, 4725, 5376, 6069, 6804, 7581, 8400, 9261, 10164, 11109, 12096, 13125, 14196, 15309, 16464, 17661, 18900, 20181, 21504, 22869, 24276, 25725, 27216, 28749

Offset: 0

Roberto E. Martinez II, Oct 18 2001

Number of edges in a complete 7-partite graph of order 7n, K_n,n,n,n,n,n,n.

Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Similar sequences are listed in A244630.
Cf. A000217, A000290, A033428, A033581, A033582, A033583.
Cf. A008603, A195049.

[21*n^2 : n in [0..50]]; // Wesley Ivan Hurt, Jul 04 2014

21 Range[0, 50]^2 (* Wesley Ivan Hurt, Jul 04 2014 *)
LinearRecurrence[{3,-3,1},{0,21,84},40] (* Harvey P. Dale, Jul 29 2019 *)

a(n)=21*n^2 \\ Charles R Greathouse IV, Jun 17 2017

a(n) = 42*n + a(n-1) - 21 for n > 0, a(0)=0. - Vincenzo Librandi, Aug 07 2010
a(n) = 21*A000290(n) = 7*A033428(n) = 3*A033582(n). - Omar E. Pol, Jul 03 2014
a(n) = t(7*n) - 7*t(n), where t(i) = i*(i+k)/2 for any k. Special case (k=1): a(n) = A000217(7*n) - 7*A000217(n). - Bruno Berselli, Aug 31 2017
From Elmo R. Oliveira, Nov 30 2024: (Start)
G.f.: 21*x*(1 + x)/(1-x)^3.
E.g.f.: 21*x*(1 + x)*exp(x).
a(n) = n*A008603(n) = A195049(2*n).
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2. (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

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

A195149 Concentric 22-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

A195148 Concentric 20-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A195048 Concentric 19-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A195058 Concentric 23-gonal numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A064762 a(n) = 21*n^2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A270693 Alternating sum of centered 25-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

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