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

A195145 Concentric 14-gonal numbers.

Original entry on oeis.org

0, 1, 14, 29, 56, 85, 126, 169, 224, 281, 350, 421, 504, 589, 686, 785, 896, 1009, 1134, 1261, 1400, 1541, 1694, 1849, 2016, 2185, 2366, 2549, 2744, 2941, 3150, 3361, 3584, 3809, 4046, 4285, 4536, 4789, 5054, 5321, 5600, 5881, 6174, 6469, 6776, 7085, 7406

Offset: 0

Omar E. Pol, Sep 17 2011

Also concentric tetradecagonal numbers or concentric tetrakaidecagonal numbers. Also sequence found by reading the line from 0, in the direction 0, 14, ..., and the same line from 1, in the direction 1, 29, ..., in the square spiral whose vertices are the generalized enneagonal numbers A118277. Main axis, perpendicular to A024966 in the same spiral.

Partial sums of A113801. - Reinhard Zumkeller, Jan 07 2012

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

A144555 and A195314 interleaved.
Cf. A024966, A032527, A032528, A077221, A113801, A195045, A195046, A195142, A195143, A195146, A195147, A195148, A195149.
Column 14 of A195040. - Omar E. Pol, Sep 28 2011

a195145 n = a195145_list !! n
a195145_list = scanl (+) 0 a113801_list
-- Reinhard Zumkeller, Jan 07 2012

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

LinearRecurrence[{2, 0, -2, 1}, {0, 1, 14, 29}, 50] (* Amiram Eldar, Jan 16 2023 *)

G.f.: -x*(1+12*x+x^2) / ( (1+x)*(x-1)^3 ). - R. J. Mathar, Sep 18 2011
From Vincenzo Librandi, Sep 27 2011: (Start)
a(n) = (14*n^2 + 5*(-1)^n - 5)/4;
a(n) = a(-n) = -a(n-1) + 7*n^2 - 7*n + 1. (End)
Sum_{n>=1} 1/a(n) = Pi^2/84 + tan(sqrt(5/7)*Pi/2)*Pi/(2*sqrt(35)). - Amiram Eldar, Jan 16 2023
E.g.f.: (7*x*(x + 1)*cosh(x) + (7*x^2 + 7*x - 5)*sinh(x))/2. - Stefano Spezia, Nov 30 2024

A064761 a(n) = 15*n^2.

Original entry on oeis.org

0, 15, 60, 135, 240, 375, 540, 735, 960, 1215, 1500, 1815, 2160, 2535, 2940, 3375, 3840, 4335, 4860, 5415, 6000, 6615, 7260, 7935, 8640, 9375, 10140, 10935, 11760, 12615, 13500, 14415, 15360, 16335, 17340, 18375, 19440, 20535, 21660, 22815

Offset: 0

Roberto E. Martinez II, Oct 18 2001

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

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

Cf. A000217, A000290, A008585, A008587, A022272, A033428, A033429, A033581, A033583.

Cf. A008597, A195046.

Table[15*n^2, {n, 0, 45}] (* Amiram Eldar, Feb 03 2021 *)

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

a(n) = 15*A000290(n) = 5*A033428(n) = 3*A033429(n). - Omar E. Pol, Dec 13 2008
a(n) = A008587(n)*A008585(n). - Reinhard Zumkeller, Apr 12 2010
a(n) = a(n-1) + 30*n - 15 for n > 0, a(0)=0. - Vincenzo Librandi, Dec 15 2010
a(n) = A022272(n) + A022272(-n). - Bruno Berselli, Mar 31 2015
a(n) = t(6*n) - 6*t(n), where t(i) = i*(i+k)/2 for any k. Special case (k=1): a(n) = A000217(6*n) - 6*A000217(n). - Bruno Berselli, Aug 31 2017
From Amiram Eldar, Feb 03 2021: (Start)
Sum_{n>=1} 1/a(n) = Pi^2/90.
Sum_{n>=1} (-1)^(n+1)/a(n) = Pi^2/180.
Product_{n>=1} (1 + 1/a(n)) = sqrt(15)*sinh(Pi/sqrt(15))/Pi.
Product_{n>=1} (1 - 1/a(n)) = sqrt(15)*sin(Pi/sqrt(15))/Pi. (End)
From Elmo R. Oliveira, Nov 29 2024: (Start)
G.f.: 15*x*(1 + x)/(1 - x)^3.
E.g.f.: 15*x*(1 + x)*exp(x).
a(n) = n*A008597(n) = A195046(2*n).
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2. (End)

A195045 Concentric 13-gonal numbers.

Original entry on oeis.org

0, 1, 13, 27, 52, 79, 117, 157, 208, 261, 325, 391, 468, 547, 637, 729, 832, 937, 1053, 1171, 1300, 1431, 1573, 1717, 1872, 2029, 2197, 2367, 2548, 2731, 2925, 3121, 3328, 3537, 3757, 3979, 4212, 4447, 4693, 4941, 5200, 5461, 5733, 6007, 6292, 6579, 6877, 7177, 7488, 7801, 8125

Offset: 0

Omar E. Pol, Sep 27 2011

Also concentric tridecagonal numbers or concentric triskaidecagonal numbers.

Partial sums of A175886. - Reinhard Zumkeller, Jan 07 2012

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

Column 13 of A195040.

Cf. A032527, A032528, A069126, A175886, A195043, A195046, A195143, A195145.

a195045 n = a195045_list !! n
a195045_list = scanl (+) 0 a175886_list
-- Reinhard Zumkeller, Jan 07 2012

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

A195045:=n->13*n^2/4+9*((-1)^n-1)/8: seq(A195045(n), n=0..70); # Wesley Ivan Hurt, Nov 22 2015

Table[13 n^2/4 + 9 ((-1)^n - 1)/8, {n, 0, 50}] (* Wesley Ivan Hurt, Nov 22 2015 *)

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

concat(0, Vec(-x*(1+11*x+x^2)/((1+x)*(x-1)^3) + O(x^50))) \\ Altug Alkan, Nov 22 2015

a(n) = 13*n^2/4+9*((-1)^n-1)/8.
From R. J. Mathar, Sep 28 2011: (Start)
G.f.: -x*(1+11*x+x^2) / ( (1+x)*(x-1)^3 ).
a(n)+a(n+1) = A069126(n+1). (End)
a(n) = 2*a(n-1)-2*a(n-3)+a(n-4) for n>3. - Wesley Ivan Hurt, Nov 22 2015
Sum_{n>=1} 1/a(n) = Pi^2/78 + tan(3*Pi/(2*sqrt(13)))*Pi/(3*sqrt(13)). - Amiram Eldar, Jan 16 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

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

A195145 Concentric 14-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Mathematica

Formula

A064761 a(n) = 15*n^2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A195045 Concentric 13-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

PARI

Formula

A195047 Concentric 17-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

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.