A069127 -id:A069127 - cp's OEIS frontend

A101321 Table T(n,m) = 1 + nm(m+1)/2 read by antidiagonals: centered polygonal numbers.

1, 1, 1, 1, 2, 1, 1, 4, 3, 1, 1, 7, 7, 4, 1, 1, 11, 13, 10, 5, 1, 1, 16, 21, 19, 13, 6, 1, 1, 22, 31, 31, 25, 16, 7, 1, 1, 29, 43, 46, 41, 31, 19, 8, 1, 1, 37, 57, 64, 61, 51, 37, 22, 9, 1, 1, 46, 73, 85, 85, 76, 61, 43, 25, 10, 1, 1, 56, 91, 109, 113, 106, 91, 71, 49, 28, 11, 1, 1, 67

Offset: 0

Eugene McDonnell (eemcd(AT)mac.com), Dec 24 2004

Row n gives the centered figurate numbers of the n-gon.

Antidiagonal sums are in A101338.

			The upper left corner of the infinite array T is
|0| 1   1   1   1   1   1   1   1   1   1 ... A000012
|1| 1   2   4   7  11  16  22  29  37  46 ... A000124
|2| 1   3   7  13  21  31  43  57  73  91 ... A002061
|3| 1   4  10  19  31  46  64  85 109 136 ... A005448
|4| 1   5  13  25  41  61  85 113 145 181 ... A001844
|5| 1   6  16  31  51  76 106 141 181 226 ... A005891
|6| 1   7  19  37  61  91 127 169 217 271 ... A003215
|7| 1   8  22  43  71 106 148 197 253 316 ... A069099
|8| 1   9  25  49  81 121 169 225 289 361 ... A016754
|9| 1  10  28  55  91 136 190 253 325 406 ... A060544

Cf. A000217, A001263, A101338.

A101321 := proc(n,k)
        n*k*(k+1)/2+1 ;
end proc: # R. J. Mathar, Jul 28 2016

T[n_, m_] := 1 + n m (m + 1)/2;
Table[T[n - m, m], {n, 0, 12}, {m, n, 0, -1}] // Flatten (* Jean-François Alcover, Mar 23 2020 *)

T(n,m) = 1 + n*m*(m+1)/2 \\ Charles R Greathouse IV, Jul 28 2016

T(n,2) = A016777(n). T(n,3) = A016921(n). T(n,4) = A017281(n).
T(10,m) = A062786(m+1).
T(11,m) = A069125(m+1).
T(12,m) = A003154(m+1).
T(13,m) = A069126(m+1).
T(14,m) = A069127(m+1).
T(15,m) = A069128(m+1).
T(16,m) = A069129(m+1).
T(17,m) = A069130(m+1).
T(18,m) = A069131(m+1).
T(19,m) = A069132(m+1).
T(20,m) = A069133(m+1).
T(n+1,m) = T(n,m) + m*(m+1)/2. - Gary W. Adamson and Michel Marcus, Oct 13 2015

Edited by R. J. Mathar, Oct 21 2009

A069190 Centered 24-gonal numbers.

Original entry on oeis.org

1, 25, 73, 145, 241, 361, 505, 673, 865, 1081, 1321, 1585, 1873, 2185, 2521, 2881, 3265, 3673, 4105, 4561, 5041, 5545, 6073, 6625, 7201, 7801, 8425, 9073, 9745, 10441, 11161, 11905, 12673, 13465, 14281, 15121, 15985, 16873, 17785, 18721, 19681, 20665, 21673

Offset: 1

Terrel Trotter, Jr., Apr 10 2002

Sequence found by reading the line from 1, in the direction 1, 25, ..., in the square spiral whose vertices are the generalized octagonal numbers A001082. Semi-axis opposite to A135453 in the same spiral. - Omar E. Pol, Sep 16 2011

			a(5) = 241 because 12*5^2 - 12*5 + 1 = 300 - 60 + 1 = 241.

Ivan Panchenko, Table of n, a(n) for n = 1..1000
John Elias, Illustration: Odd Ordered Star Perimeters.
Eric Weisstein's World of Mathematics, Centered Polygonal Numbers.
R. Yin, J. Mu, and T. Komatsu, The p-Frobenius Number for the Triple of the Generalized Star Numbers, Preprints 2024, 2024072280. See p. 2.
Index entries for sequences related to centered polygonal numbers.
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. centered k-gonal numbers with k=3..25: A005448, A001844, A005891, A003215, A069099, A016754, A060544, A062786, A069125, A003154, A069126, A069127, A069128, A069129, A069130, A069131, A069132, A069133, A069178, A069173, A069174, A069190, A262221.

FoldList[#1 + #2 &, 1, 24 Range@ 45] (* Robert G. Wilson v *)
Table[12n^2-12n+1,{n,50}] (* or *) LinearRecurrence[{3,-3,1},{1,25,73},50] (* Harvey P. Dale, Jul 17 2011 *)

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

a(n) = 12*n^2 - 12*n + 1.
a(n) = 24*n + a(n-1) - 24 with a(1)=1. - Vincenzo Librandi, Aug 08 2010
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3); a(1)=1, a(2)=25, a(3)=73. - Harvey P. Dale, Jul 17 2011
G.f.: x*(1+22*x+x^2)/(1-x)^3. - Harvey P. Dale, Jul 17 2011
Binomial transform of [1, 24, 24, 0, 0, 0, ...] and Narayana transform (cf. A001263) of [1, 24, 0, 0, 0, ...]. - Gary W. Adamson, Jul 26 2011
From Amiram Eldar, Jun 21 2020: (Start)
Sum_{n>=1} 1/a(n) = Pi*tan(Pi/sqrt(6))/(4*sqrt(6)).
Sum_{n>=1} a(n)/n! = 13*e - 1.
Sum_{n>=1} (-1)^n * a(n)/n! = 13/e - 1. (End)
E.g.f.: exp(x)*(1 + 12*x^2) - 1. - Stefano Spezia, May 31 2022

More terms from Harvey P. Dale, Jul 17 2011

A193053 a(n) = (14n(n+3) + (2n-5)(-1)^n + 21)/16.

Original entry on oeis.org

1, 5, 10, 17, 26, 36, 49, 62, 79, 95, 116, 135, 160, 182, 211, 236, 269, 297, 334, 365, 406, 440, 485, 522, 571, 611, 664, 707, 764, 810, 871, 920, 985, 1037, 1106, 1161, 1234, 1292, 1369, 1430, 1511, 1575, 1660, 1727, 1816, 1886, 1979, 2052, 2149, 2225, 2326

Offset: 0

Bruno Berselli, Oct 20 2011 - based on remarks and sequences by Omar E. Pol

For an origin of this sequence, see the numerical spiral illustrated in the Links section.

Bruno Berselli, Table of n, a(n) for n = 0..1000
Bruno Berselli, Illustration of initial terms.
Index entries for linear recurrences with constant coefficients, signature (1,2,-2,-1,1).

Cf. A195020 (vertices of the numerical spiral in link).

Cf. A001106, A022264, A033572, A144555, A152760, A158482, A158485, A185019, A195021, A195023-A195030, A195320, A198017 [incomplete list].

[(14*n*(n+3)+(2*n-5)*(-1)^n+21)/16: n in [0..50]];

Table[(14*n*(n + 3) + (2*n - 5)*(-1)^n + 21)/16, {n, 0, 50}] (* Vincenzo Librandi, Mar 26 2013 *)
LinearRecurrence[{1,2,-2,-1,1},{1,5,10,17,26},60] (* Harvey P. Dale, Jun 19 2020 *)

for(n=0, 50, print1((14*n*(n+3)+(2*n-5)*(-1)^n+21)/16", "));

O.g.f.: (1 + 4*x + 3*x^2 - x^3)/((1 + x)^2*(1 - x)^3).
E.g.f.: (1/16)*((21 + 56*x + 14*x^2)*exp(x) - (5 + 2*x)*exp(-x)). - G. C. Greubel, Aug 19 2017
a(n) = A195020(n) + n + 1.
a(n)   - a(-n-1)  = A047336(n+1).
a(n+1) - a(-n)    = A113804(n+1).
a(n+2) - a(n)     = A047385(n+3).
a(n+4) - a(n)     = A113803(n+4).
a(2*n) + a(2*n-1) = A069127(n+1).
a(2*n) - a(2*n-1) = A016813(n).
a(2*n+1) - a(2*n) = A016777(n+1).
a(n+2) + 2*a(n+1) + a(n) = A024966(n+2).

A195041 Concentric heptagonal numbers.

Original entry on oeis.org

0, 1, 7, 15, 28, 43, 63, 85, 112, 141, 175, 211, 252, 295, 343, 393, 448, 505, 567, 631, 700, 771, 847, 925, 1008, 1093, 1183, 1275, 1372, 1471, 1575, 1681, 1792, 1905, 2023, 2143, 2268, 2395, 2527, 2661, 2800, 2941, 3087, 3235, 3388, 3543

Offset: 0

Omar E. Pol, Sep 27 2011

A033582 and A069127 interleaved.

Partial sums of A047336. - 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 7 of A195040.

Cf. A032527, A032528, A033582, A047336, A069099, A069127, A077221, A195042.

a195041 n = a195041_list !! n
a195041_list = scanl (+) 0 a047336_list
-- Reinhard Zumkeller, Jan 07 2012

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

CoefficientList[Series[-((x (1+5 x+x^2))/((-1+x)^3 (1+x))),{x,0,80}],x] (* or *) LinearRecurrence[{2,0,-2,1},{0,1,7,15},80] (* Harvey P. Dale, Jan 18 2021 *)

a(n)=7*n^2\4 \\ Charles R Greathouse IV, Oct 07 2015

a(n) = 7*n^2/4 + 3*((-1)^n - 1)/8.
From R. J. Mathar, Sep 28 2011: (Start)
G.f.: -x*(1+5*x+x^2) / ( (1+x)*(x-1)^3 ).
a(n) + a(n+1) = A069099(n+1). (End)
a(n) = n^2 + floor(3*n^2/4). - Bruno Berselli, Aug 08 2013
Sum_{n>=1} 1/a(n) = Pi^2/42 + tan(sqrt(3/7)*Pi/2)*Pi/sqrt(21). - Amiram Eldar, Jan 16 2023

A195314 Centered 28-gonal numbers.

Original entry on oeis.org

1, 29, 85, 169, 281, 421, 589, 785, 1009, 1261, 1541, 1849, 2185, 2549, 2941, 3361, 3809, 4285, 4789, 5321, 5881, 6469, 7085, 7729, 8401, 9101, 9829, 10585, 11369, 12181, 13021, 13889, 14785, 15709, 16661, 17641, 18649, 19685, 20749, 21841, 22961, 24109, 25285, 26489

Offset: 1

Omar E. Pol, Sep 16 2011

Sequence found by reading the line from 1, in the direction 1, 29, ..., in the square spiral whose vertices are the generalized enneagonal numbers A118277. Semi-axis opposite to A144555 in the same spiral.

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

Bisection of A195145.
Cf. A003154, A069129, A069133, A069190, A195315, A195316, A195317, A195318.
Cf. A069127, A118277, A144555.

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

Table[14n^2-14n+1,{n,50}] (* or *) LinearRecurrence[{3,-3,1},{1,29,85},50]

a(n)=14*n^2-14*n+1 \\ Charles R Greathouse IV, Oct 07 2015

a(n) = 14*n^2 - 14*n + 1.
G.f.: -x*(1 + 26*x + x^2)/(x-1)^3. - R. J. Mathar, Sep 18 2011
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3). - Harvey P. Dale, Oct 01 2011
Sum_{n>=1} 1/a(n) = Pi*tan(sqrt(5/7)*Pi/2)/(2*sqrt(35)). - Amiram Eldar, Feb 11 2022
From Elmo R. Oliveira, Nov 14 2024: (Start)
E.g.f.: exp(x)*(14*x^2 + 1) - 1.
a(n) = 2*A069127(n) - 1. (End)

A163756 14 times triangular numbers.

Original entry on oeis.org

0, 14, 42, 84, 140, 210, 294, 392, 504, 630, 770, 924, 1092, 1274, 1470, 1680, 1904, 2142, 2394, 2660, 2940, 3234, 3542, 3864, 4200, 4550, 4914, 5292, 5684, 6090, 6510, 6944, 7392, 7854, 8330, 8820, 9324, 9842, 10374, 10920, 11480, 12054, 12642, 13244, 13860

Offset: 0

Vincenzo Librandi, Aug 03 2009

Sequence found by reading the line from 0, in the direction 0, 14, ... and the same line from 0, in the direction 0, 42, ..., in the square spiral whose vertices are the generalized 16-gonal numbers. - Omar E. Pol, Oct 03 2011

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

Cf. A000217, A002378, A069127.

Cf. A274978 (generalized 16-gonal numbers).

Table[7*n*(n-1),{n,100}] (* Vladimir Joseph Stephan Orlovsky, Jul 06 2011 *)
14*Accumulate[Range[0,50]] (* or *) LinearRecurrence[{3,-3,1},{0,14,42},50] (* Harvey P. Dale, May 11 2021 *)

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

a(n) = 7*n*(n+1) = 14*A000217(n).
G.f.: 14*x/(1-x)^3.
a(n) = 7*A002378(n) = 2*A024966(n) = A069127(n+1) - 1. - Omar E. Pol, Oct 03 2011
E.g.f.: 7*x*(x + 2)*exp(x). - G. C. Greubel, Aug 02 2017
From Amiram Eldar, Feb 21 2023: (Start)
Sum_{n>=1} 1/a(n) = 1/7.
Sum_{n>=1} (-1)^(n+1)/a(n) = (2*log(2) - 1)/7.
Product_{n>=1} (1 - 1/a(n)) = -(7/Pi)*cos(sqrt(11/7)*Pi/2).
Product_{n>=1} (1 + 1/a(n)) = (7/Pi)*cos(sqrt(3/7)*Pi/2). (End)

Extended by R. J. Mathar, Aug 06 2009

A141534 Derived from the centered polygonal numbers: start with the first triangular number, then the sum of the first square number and the second triangular number, then the sum of first pentagonal number, the second square number and the third triangular number, and so on and so on...

Original entry on oeis.org

1, 4, 11, 26, 55, 105, 184, 301, 466, 690, 985, 1364, 1841, 2431, 3150, 4015, 5044, 6256, 7671, 9310, 11195, 13349, 15796, 18561, 21670, 25150, 29029, 33336, 38101, 43355, 49130, 55459, 62376, 69916, 78115, 87010, 96639, 107041, 118256, 130325

Offset: 1

Dan Graybill (clopen(AT)comcast.net), Aug 12 2008

Consider the array of triangular, square and centered polygonal numbers (irregular variant of A086272 and A086273):
 3   6  10  15  21  28  36  45  55  A000217
 4   9  16  25  36  49  64  81 100  A000290
 6  16  31  51  76 106 141 181 226  A005891
 7  19  37  61  91 127 169 217 271  A003215
 8  22  43  71 106 148 197 253 316  A069099
 9  25  49  81 121 169 225 289 361  A016754
10  28  55  91 136 190 253 325 406  A060544
11  31  61 101 151 211 281 361 451  A062786
12  34  67 111 166 232 309 397 496  A069125
13  37  73 121 181 253 337 433 541  A003154
14  40  79 131 196 274 365 469 586  A069126
15  43  85 141 211 295 393 505 631  A069127
etc. The sequence contains the antidiagonal sums of this array. - R. J. Mathar, Jun 05 2011
For comparison, the antidiagonal sums of A086270 are essentially A006522 starting at the 4th term. - R. J. Mathar, Sep 20 2008

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

Cf. A000217.

a(n) = (n-1)*(n^3+11*n^2-38*n+120)/24, n>1. - R. J. Mathar, Sep 12 2008

G.f.: x*(1-x+x^2+x^3-x^5)/(1-x)^5. - Alexander R. Povolotsky, Jun 06 2011

A264821 Centered 14-gonal (or tetradecagonal) primes.

Original entry on oeis.org

43, 211, 631, 1093, 1471, 2143, 4201, 6091, 7393, 8821, 17851, 23143, 24781, 25621, 33811, 36793, 38851, 39901, 42043, 45361, 53593, 57331, 63841, 76441, 91771, 96643, 99961, 101641, 110251, 126631, 128521, 138181, 146161, 152293, 158551, 184843, 189421, 220543

Offset: 1

Ilya Gutkovskiy, Nov 26 2015

nonn

Primes of the form 7*k^2 - 7*k + 1.

OEIS Wiki, Figurate numbers
Eric Weisstein's World of Mathematics, Centered Polygonal Number
Eric Weisstein's World of Mathematics, Prime Number

Cf. A069127, A000040.

Select[Table[7n^2-7n+1,{n,200}],PrimeQ] (* Harvey P. Dale, Jul 27 2021 *)

for(n=1, 1e3, if(isprime(k=7*n^2-7*n+1), print1(k,", "))) \\ Altug Alkan, Nov 26 2015

cp's OEIS Frontend

A101321 Table T(n,m) = 1 + n*m*(m+1)/2 read by antidiagonals: centered polygonal numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A069190 Centered 24-gonal numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A193053 a(n) = (14*n*(n+3) + (2*n-5)*(-1)^n + 21)/16.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A195041 Concentric heptagonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Mathematica

PARI

Formula

A195314 Centered 28-gonal numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

A163756 14 times triangular numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A141534 Derived from the centered polygonal numbers: start with the first triangular number, then the sum of the first square number and the second triangular number, then the sum of first pentagonal number, the second square number and the third triangular number, and so on and so on...

Views

Author

Keywords

A101321 Table T(n,m) = 1 + nm(m+1)/2 read by antidiagonals: centered polygonal numbers.

A193053 a(n) = (14n(n+3) + (2n-5)(-1)^n + 21)/16.