A195048 -id:A195048 - 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 *)

A195147 Concentric 18-gonal numbers.

Original entry on oeis.org

0, 1, 18, 37, 72, 109, 162, 217, 288, 361, 450, 541, 648, 757, 882, 1009, 1152, 1297, 1458, 1621, 1800, 1981, 2178, 2377, 2592, 2809, 3042, 3277, 3528, 3781, 4050, 4321, 4608, 4897, 5202, 5509, 5832, 6157, 6498, 6841, 7200, 7561, 7938, 8317, 8712, 9109

Offset: 0

Omar E. Pol, Sep 17 2011

Concentric octadecagonal numbers or concentric octakaidecagonal numbers.

Sequence found by reading the line from 0, in the direction 0, 18, ..., and the same line from 1, in the direction 1, 37, ..., in the square spiral whose vertices are the generalized hendecagonal numbers A195160. Main axis, perpendicular to A027468 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).

A195321 and A195316 interleaved.
Cf. A032528, A077221, A195142, A195143, A195145, A195146, A195148, A195149.
Cf. A032527, A195047, A195048. Column 18 of A195040. - Omar E. Pol, Sep 29 2011

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

LinearRecurrence[{2, 0, -2, 1}, {0, 1, 18, 37}, 50] (* Amiram Eldar, Jan 17 2023 *)

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

G.f.: -x*(1+16*x+x^2) / ( (1+x)*(x-1)^3 ). - R. J. Mathar, Sep 18 2011
From Vincenzo Librandi, Sep 27 2011: (Start)
a(n) = (18*n^2 + 7*(-1)^n - 7)/4;
a(n) = -a(n-1) + 9*n^2 - 9*n + 1. (End)
Sum_{n>=1} 1/a(n) = Pi^2/108 + tan(sqrt(7)*Pi/6)*Pi/(6*sqrt(7)). - Amiram Eldar, Jan 17 2023

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

A195049 Concentric 21-gonal numbers.

Original entry on oeis.org

0, 1, 21, 43, 84, 127, 189, 253, 336, 421, 525, 631, 756, 883, 1029, 1177, 1344, 1513, 1701, 1891, 2100, 2311, 2541, 2773, 3024, 3277, 3549, 3823, 4116, 4411, 4725, 5041, 5376, 5713, 6069, 6427, 6804, 7183, 7581, 7981, 8400, 8821, 9261, 9703, 10164

Offset: 0

Omar E. Pol, Sep 27 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 21 of A195040.

Cf. A032527, A032528, A195048, A195148, A195149, A195058.

A195049:=n->21*n^2/4+17*((-1)^n-1)/8: seq(A195049(n), n=0..100); # Wesley Ivan Hurt, Jan 17 2017

LinearRecurrence[{2, 0, -2, 1}, {0, 1, 21, 43}, 50] (* Amiram Eldar, Jan 17 2023 *)

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

a(n) = 21*n^2/4 + 17*((-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+19*x+x^2)/((1-x)^3*(1+x)). (End)
Sum_{n>=1} 1/a(n) = Pi^2/126 + tan(sqrt(17/21)*Pi/2)*Pi/sqrt(357). - Amiram Eldar, Jan 17 2023

A195047 Concentric 17-gonal numbers.

Original entry on oeis.org

0, 1, 17, 35, 68, 103, 153, 205, 272, 341, 425, 511, 612, 715, 833, 953, 1088, 1225, 1377, 1531, 1700, 1871, 2057, 2245, 2448, 2653, 2873, 3095, 3332, 3571, 3825, 4081, 4352, 4625, 4913, 5203, 5508, 5815, 6137, 6461, 6800, 7141, 7497, 7855, 8228, 8603, 8993

Offset: 0

Omar E. Pol, Sep 27 2011

Also concentric heptadecagonal numbers or concentric heptakaidecagonal 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 17 of A195040.

Cf. A032527, A032528, A061925, A069130, A151978, A195046, A195048, A195146, A195147.

LinearRecurrence[{2,0,-2,1},{0,1,17,35},50] (* Harvey P. Dale, Dec 23 2017 *)

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

a(n) = 17*n^2/4+13*((-1)^n-1)/8. [Typo fixed by Ivan Panchenko, Nov 08 2013]
From R. J. Mathar, Sep 28 2011: (Start)
G.f.: -x*(1+15*x+x^2) / ( (1+x)*(x-1)^3 ).
a(n)+a(n+1) = A069130(n+1). (End)
From Bruno Berselli, Sep 29 2011: (Start)
a(n) = a(-n) = (34*n^2+13*(-1)^n-13)/8.
a(n) = A151978(A061925(n)). (End)
Sum_{n>=1} 1/a(n) = Pi^2/102 + tan(sqrt(13/17)*Pi/2)*Pi/sqrt(221). - Amiram Eldar, Jan 16 2023

A244631 a(n) = 19*n^2.

Original entry on oeis.org

0, 19, 76, 171, 304, 475, 684, 931, 1216, 1539, 1900, 2299, 2736, 3211, 3724, 4275, 4864, 5491, 6156, 6859, 7600, 8379, 9196, 10051, 10944, 11875, 12844, 13851, 14896, 15979, 17100, 18259, 19456, 20691, 21964, 23275, 24624, 26011, 27436, 28899, 30400, 31939, 33516

Offset: 0

Vincenzo Librandi, Jul 03 2014

First bisection of A195048. - Bruno Berselli, Jul 03 2014

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

Cf. A000290, A008601, A195048.

Cf. similar sequences listed in A244630.

Magma
```
[19*n^2: n in [0..40]];
```
Mathematica
```
Table[19 n^2, {n, 0, 40}]
```

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

G.f.: 19*x*(1 + x)/(1 - x)^3. [corrected by Bruno Berselli, Jul 03 2014]
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2.
a(n) = 19*A000290(n). - Omar E. Pol, Jul 03 2014
From Elmo R. Oliveira, Dec 01 2024: (Start)
E.g.f.: 19*x*(1 + x)*exp(x).
a(n) = n*A008601(n) = A195048(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

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

A195147 Concentric 18-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A195148 Concentric 20-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A195049 Concentric 21-gonal numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A195047 Concentric 17-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A244631 a(n) = 19*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.