A085787 -id:A085787 - cp's OEIS frontend

A028895 5 times triangular numbers: a(n) = 5n(n+1)/2.

0, 5, 15, 30, 50, 75, 105, 140, 180, 225, 275, 330, 390, 455, 525, 600, 680, 765, 855, 950, 1050, 1155, 1265, 1380, 1500, 1625, 1755, 1890, 2030, 2175, 2325, 2480, 2640, 2805, 2975, 3150, 3330, 3515, 3705, 3900, 4100, 4305, 4515, 4730, 4950, 5175, 5405, 5640

Offset: 0

Joe Keane (jgk(AT)jgk.org), Dec 11 1999

Sequence found by reading the line from 0, in the direction 0, 5, ... and the same line from 0, in the direction 0, 15, ..., in the square spiral whose vertices are the generalized heptagonal numbers A085787. Axis perpendicular to A195142 in the same spiral. - Omar E. Pol, Sep 18 2011
Bisection of A195014. Sequence found by reading the line from 0, in the direction 0, 5, ..., and the same line from 0, in the direction 0, 15, ..., in the square spiral whose edges have length A195013 and whose vertices are the numbers A195014. This is the main diagonal of the spiral. - Omar E. Pol, Sep 25 2011
a(n) = the Wiener index of the graph obtained by applying Mycielski's construction to the complete graph K(n) (n>=2). - Emeric Deutsch, Aug 29 2013
Sum of the numbers from 2*n to 3*n for n=0,1,2,... - Wesley Ivan Hurt, Nov 27 2015
Numbers k such that the concatenation k625 is a square, where also 625 is a square. - Bruno Berselli, Nov 07 2018
From Paul Curtz, Nov 29 2019: (Start)
Main column of the pentagonal spiral for n (A001477):
                         50
                      49 30 31
                   48 29 15 16 32
                47 28 14  5  6 17 33
             46 27 13  4  0  1  7 18 34
               45 26 12  3  2  8 19 35
                 44 25 11 10  9 20 36
                   43 24 23 22 21 37
                    42 41 40 39 38
(End)

D. B. West, Introduction to Graph Theory, 2nd ed., Prentice-Hall, NJ, 2001, p. 205.

Ivan Panchenko, Table of n, a(n) for n = 0..1000
Rangaswami Balakrishnan and S. Francis Raj, The Wiener number of powers of the Mycielskian, Discussiones Math. Graph Theory, Vol. 30, No. 3 (2010), pp. 489-498 (see Theorem 2.1).
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. A000217, A001068, A005891, A028896, A046092, A055998, A085787, A130520, A195013, A195014, A195142.
Cf. index to numbers of the form n*(d*n+10-d)/2 in A140090.
Cf. A000566, A005475, A005476, A033583, A085787, A147875, A192136, A326725 (all in the spiral).

[5*n*(n+1)/2 : n in [0..50]]; // Wesley Ivan Hurt, Jun 09 2014

[seq(5*binomial(n,2), n=1..45)]; # Zerinvary Lajos, Nov 24 2006

Table[Sum[i + 2*n - 1, {i, 2, n}], {n, 45}] (* Zerinvary Lajos, Jul 11 2009 *)
Table[5 n (n + 1)/2, {n, 0, 50}] (* Bruno Berselli, Sep 23 2016 *)
5 Accumulate[Range[0,60]] (* Harvey P. Dale, Jun 17 2025 *)

a(n)=5*n*(n+1)/2 \\ Charles R Greathouse IV, Sep 24 2015

def A028895(n): return 5*n*(n+1)>>1 # Chai Wah Wu, Aug 07 2025

G.f.: 5*x/(1-x)^3.
a(n) = 5*n*(n+1)/2 = 5*A000217(n).
a(n+1) = 5*n+a(n). - Vincenzo Librandi, Aug 05 2010
a(n) = A005891(n) - 1. - Omar E. Pol, Oct 03 2011
a(n) = A130520(5n+4). - Philippe Deléham, Mar 26 2013
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2. - Wesley Ivan Hurt, Nov 27 2015
a(n) = Sum_{i=0..n} A001068(4i). - Wesley Ivan Hurt, May 06 2016
E.g.f.: 5*x*(2 + x)*exp(x)/2. - Ilya Gutkovskiy, May 06 2016
a(n) = A055998(3*n) - A055998(2*n). - Bruno Berselli, Sep 23 2016
From Amiram Eldar, Feb 26 2022: (Start)
Sum_{n>=1} 1/a(n) = 2/5.
Sum_{n>=1} (-1)^(n+1)/a(n) = (2/5)*(2*log(2) - 1). (End)
Product_{n>=1} (1 - 1/a(n)) = -(5/(2*Pi))*cos(sqrt(13/5)*Pi/2). - Amiram Eldar, Feb 21 2023

A033583 a(n) = 10*n^2.

Original entry on oeis.org

0, 10, 40, 90, 160, 250, 360, 490, 640, 810, 1000, 1210, 1440, 1690, 1960, 2250, 2560, 2890, 3240, 3610, 4000, 4410, 4840, 5290, 5760, 6250, 6760, 7290, 7840, 8410, 9000, 9610, 10240, 10890, 11560, 12250, 12960, 13690, 14440, 15210, 16000, 16810

Offset: 0

N. J. A. Sloane

Number of edges of a complete 5-partite graph of order 5n, K_n,n,n,n,n. - Roberto E. Martinez II, Oct 18 2001
10 times the squares. - Omar E. Pol, Dec 13 2008
Sequence found by reading the line from 0, in the direction 0, 10, ..., in the square spiral whose vertices are the generalized heptagonal numbers A085787. - Omar E. Pol, Sep 10 2011

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

Cf. A000217, A000290, A001105, A033428, A033429, A033581, A085787, A158187.

seq(10*n^2,n=0..41); # Nathaniel Johnston, Jun 26 2011

10*Range[0,50]^2  (* Harvey P. Dale, Apr 20 2011 *)

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

a(n) = 10*A000290(n) = 5*A001105(n) = 2*A033429(n). - Omar E. Pol, Dec 13 2008
a(n) = A158187(n) - 1. - Reinhard Zumkeller, Mar 13 2009
a(n) = 20*n + a(n-1) - 10 for n>0, a(0)=0. - Vincenzo Librandi, Aug 05 2010
a(n) = t(5*n) - 5*t(n), where t(i) = i*(i+k)/2 for any k. Special case (k=1): a(n) = A000217(5*n) - 5*A000217(n). - Bruno Berselli, Aug 31 2017
From Amiram Eldar, Feb 03 2021: (Start)
Sum_{n>=1} 1/a(n) = Pi^2/60.
Sum_{n>=1} (-1)^(n+1)/a(n) = Pi^2/120.
Product_{n>=1} (1 + 1/a(n)) = sqrt(10)*sinh(Pi/sqrt(10))/Pi.
Product_{n>=1} (1 - 1/a(n)) = sqrt(10)*sin(Pi/sqrt(10))/Pi. (End)
From Stefano Spezia, Jul 06 2021: (Start)
O.g.f.: 10*x*(1 + x)/(1 - x)^3.
E.g.f.: 10*exp(x)*x*(1 + x). (End)

A147875 Second heptagonal numbers: a(n) = n(5n+3)/2.

Original entry on oeis.org

0, 4, 13, 27, 46, 70, 99, 133, 172, 216, 265, 319, 378, 442, 511, 585, 664, 748, 837, 931, 1030, 1134, 1243, 1357, 1476, 1600, 1729, 1863, 2002, 2146, 2295, 2449, 2608, 2772, 2941, 3115, 3294, 3478, 3667, 3861, 4060, 4264, 4473, 4687, 4906, 5130, 5359, 5593

Offset: 0

Vladimir Joseph Stephan Orlovsky, Nov 16 2008

Zero followed by partial sums of A016897.
Apparently = every 2nd term of A111710 and A085787.
Bisection of A085787. Sequence found by reading the line from 0, in the direction 0, 13, ... and the line from 4, in the direction 4, 27, ..., in the square spiral whose vertices are the generalized heptagonal numbers A085787. - Omar E. Pol, Jul 18 2012
Numbers of the form m^2 + k*m*(m+1)/2: in this case is k=3. See also A254963. - Bruno Berselli, Feb 11 2015

			G.f. = 4*x + 13*x^2 + 27*x^3 + 46*x^4 + 70*x^5 + 99*x^6 + 133*x^7 + ... - _Michael Somos_, Jan 25 2019

Harvey P. Dale, Table of n, a(n) for n = 0..1000
Leo Tavares, Illustration: Sliced Hexagons
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. A016897, A111710, A000217, A085787, A224419 (positions of squares).
Second n-gonal numbers: A005449, A014105, A045944, A179986, A033954, A062728, A135705.
Cf. A000566.
Cf. A003215, A000096, A000290.

List([0..50], n-> n*(5*n+3)/2); # G. C. Greubel, Jul 04 2019

[n*(5*n+3)/2: n in [0..50]]; // G. C. Greubel, Jul 04 2019

Table[(n(5n+3))/2, {n, 0, 50}] (* or *) LinearRecurrence[{3, -3, 1}, {0, 4, 13}, 50] (* Harvey P. Dale, May 15 2013 *)

a(n)=n*(5*n+3)/2 \\ Charles R Greathouse IV, Sep 24 2015

[n*(5*n+3)/2 for n in (0..50)] # G. C. Greubel, Jul 04 2019

G.f.: x*(4+x)/(1-x)^3.
a(n) = Sum_{k=0..n-1} A016897(k).
a(n) - a(n-1) = 5*n -1. - Vincenzo Librandi, Nov 26 2010
G.f.: U(0) where U(k) = 1 + 2*(2*k+3)/(k + 2 - x*(k+2)^2*(k+3)/(x*(k+2)*(k+3) + (2*k+2)*(2*k+3)/U(k+1))); (continued fraction, 3-step). - Sergei N. Gladkovskii, Nov 14 2012
E.g.f.: U(0) where U(k) = 1 + 2*(2*k+3)/(k + 2 - 2*x*(k+2)^2*(k+3)/(2*x*(k+2)*(k+3) + (2*k+2)^2*(2*k+3)/U(k+1))); (continued fraction, 3rd kind, 3-step). - Sergei N. Gladkovskii, Nov 14 2012
a(n) = A130520(5n+3). - Philippe Deléham, Mar 26 2013
a(n) = A131242(10n+7)/2. - Philippe Deléham, Mar 27 2013
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3); a(0)=0, a(1)=4, a(2)=13. - Harvey P. Dale, May 15 2013
Sum_{n>=1} 1/a(n) = 10/9 + sqrt(1 - 2/sqrt(5))*Pi/3 - 5*log(5)/6 + sqrt(5)*log((1 + sqrt(5))/2)/3 = 0.4688420784500060750083432... . - Vaclav Kotesovec, Apr 27 2016
a(n) = A000217(n) + A000217(2*n). - Bruno Berselli, Jul 01 2016
From Ilya Gutkovskiy, Jul 01 2016: (Start)
E.g.f.: x*(8 + 5*x)*exp(x)/2.
Dirichlet g.f.: (5*zeta(s-2) + 3*zeta(s-1))/2. (End)
a(n) = A000566(-n) for all n in Z. - Michael Somos, Jan 25 2019
From Leo Tavares, Feb 14 2022: (Start)
a(n) = A003215(n) - A000217(n+1). See Sliced Hexagons illustration in links.
a(n) = A000096(n) + 2*A000290(n). (End)

Edited by Klaus Brockhaus and R. J. Mathar, Nov 20 2008

New name from Bruno Berselli, Jan 13 2011

A274979 Integers of the form m*(m + 7)/8.

Original entry on oeis.org

0, 1, 15, 18, 46, 51, 93, 100, 156, 165, 235, 246, 330, 343, 441, 456, 568, 585, 711, 730, 870, 891, 1045, 1068, 1236, 1261, 1443, 1470, 1666, 1695, 1905, 1936, 2160, 2193, 2431, 2466, 2718, 2755, 3021, 3060, 3340, 3381, 3675, 3718, 4026, 4071, 4393, 4440, 4776, 4825

Offset: 1

Bruno Berselli, Jul 15 2016

Nonnegative values of m are listed in A047393.
Also, numbers h such that 32*h + 49 is a square.
Equivalently, numbers of the form i*(8*i + 7) with i = 0, -1, 1, -2, 2, -3, 3, ...
Infinitely many squares belong to this sequence.
The first bisection is A139278, and 0 followed by the second bisection gives A051870.
Generalized 18-gonal (or octadecagonal) numbers (see the third comment). - Omar E. Pol, Jun 06 2018
Partial sums of A317314. - Omar E. Pol, Jul 28 2018
Exponents in expansion of Product_{n >= 1} (1 + x^(16*n-15))*(1 + x^(16*n-1))*(1 - x^(16*n)) = 1 + x + x^15 + x^18 + x^46 + .... - Peter Bala, Dec 10 2020
Generalized k-gonal numbers are second k-gonal numbers and positive terms of k-gonal numbers interleaved, k >= 5. They are also the partial sums of the sequence formed by the multiples of (k - 4) and the odd numbers (A005408) interleaved, k >= 5. In this case k = 18. - Omar E. Pol, Apr 25 2021

			100 is in the sequence because 100 = 25*(25+7)/8 or also 100 = 4*(8*4-7).
From _Omar E. Pol_, Apr 24 2021: (Start)
Illustration of initial terms as vertices of a rectangular spiral:
        46_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _18
         |                                                       |
         |                           0                           |
         |                           |_ _ _ _ _ _ _ _ _ _ _ _ _ _|
         |                           1                           15
         |
        51
More generally, all generalized k-gonal numbers can be represented with this kind of spirals, k >= 5. In this case  k = 18. (End)

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

Cf. sequences of the form m*(m+k)/(k+1) listed in A274978.
Cf. similar sequences listed in A299645.
Cf. A317314.
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), this sequence (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

[t: m in [0..200] | IsIntegral(t) where t is m*(m+7)/8];

Select[m = Range[0, 200]; m (m + 7)/8, IntegerQ] (* Jean-François Alcover, Jul 21 2016 *)
Select[Table[(m(m+7))/8,{m,0,200}],IntegerQ] (* or *) LinearRecurrence[ {1,2,-2,-1,1},{0,1,15,18,46},50] (* Harvey P. Dale, May 07 2019 *)

def A274979(n): return (n>>1)*((n<<2)+(3 if n&1 else -7)) # Chai Wah Wu, Mar 11 2025

def A274979_list(len):
    h = lambda m: m*(m+7)/8
    return [h(m) for m in (0..len) if h(m) in ZZ]
print(A274979_list(199)) # Peter Luschny, Jul 18 2016

O.g.f.: x^2*(1 + 14*x + x^2)/((1 + x)^2*(1 - x)^3).
E.g.f.: (3*(2*x + 1)*exp(-x) + (8*x^2 - 3)*exp(x))/4.
a(n) = (8*(n-1)*n - 3*(2*n-1)*(-1)^n - 3)/4.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n >= 6. - Wesley Ivan Hurt, Dec 18 2020
From Amiram Eldar, Feb 28 2022: (Start)
Sum_{n>=2} 1/a(n) = (8 + 7*(sqrt(2)+1)*Pi)/49.
Sum_{n>=2} (-1)^n/a(n) = 8*log(2)/7 + 2*sqrt(2)*log(sqrt(2)+1)/7 - 8/49. (End)
a(n) = (n-1)*(4*n+3)/2 if n is odd and a(n) = n*(4*n-7)/2 if n is even. - Chai Wah Wu, Mar 11 2025

A274978 Integers of the form m*(m + 6)/7.

Original entry on oeis.org

0, 1, 13, 16, 40, 45, 81, 88, 136, 145, 205, 216, 288, 301, 385, 400, 496, 513, 621, 640, 760, 781, 913, 936, 1080, 1105, 1261, 1288, 1456, 1485, 1665, 1696, 1888, 1921, 2125, 2160, 2376, 2413, 2641, 2680, 2920, 2961, 3213, 3256, 3520, 3565, 3841, 3888, 4176, 4225, 4525, 4576

Offset: 1

Bruno Berselli, Jul 15 2016

Nonnegative values of m are listed in A047274.
Also, numbers h such that 7*h + 9 is a square.
Equivalently, numbers of the form i*(7*i - 6) with i = 0, 1, -1, 2, -2, 3, -3, ...
Infinitely many squares belong to this sequence.
Generalized 16-gonal (or hexadecagonal) numbers. See the third comment. - Omar E. Pol, Jun 06 2018
Partial sums of A317312. - Omar E. Pol, Jul 28 2018
Exponents in expansion of Product_{n >= 1} (1 + x^(14*n-13))*(1 + x^(14*n-1))*(1 - x^(14*n)) = 1 + x + x^13 + x^16+ x^40 + .... - Peter Bala, Dec 10 2020

			88 is in the sequence because 88 = 22*(22+6)/7 or also 88 = 4*(7*4-6).

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

Supersequence of A051868.
Cf. A317312.
Cf. sequences of the form m*(m+k)/(k+1): A000290 (k=0), A000217 (k=1), A001082 (k=2), A074377 (k=3), A195162 (k=4), A144065 (k=5), A274978 (k=6), A274979 (k=7), A218864 (k=8).
Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), this sequence (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

[t: m in [0..200] | IsIntegral(t) where t is m*(m+6)/7];

Select[m = Range[0, 200]; m (m + 6)/7, IntegerQ] (* Jean-François Alcover, Jul 21 2016 *)
Select[Table[(n(n+6))/7,{n,0,200}],IntegerQ] (* Harvey P. Dale, Sep 20 2022 *)

def A274978_list(len):
    h = lambda m: m*(m+6)/7
    return [h(m) for m in (0..len) if h(m) in ZZ]
print(A274978_list(179)) # Peter Luschny, Jul 18 2016

O.g.f.: x^2*(1 + 12*x + x^2)/((1 + x)^2*(1 - x)^3).
E.g.f.: (5*(2*x + 1)*exp(-x) + (14*x^2 - 5)*exp(x))/8.
a(n) = (14*(n-1)*n - 5*(2*n-1)*(-1)^n - 5)/8.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n >= 6. - Wesley Ivan Hurt, Dec 18 2020
Sum_{n>=2} 1/a(n) = (7 + 6*Pi*cot(Pi/7))/36. - Amiram Eldar, Feb 28 2022

A277082 Generalized 15-gonal (or pentadecagonal) numbers: n(13n - 11)/2, n = 0,+1,-1,+2,-2,+3,-3, ...

Original entry on oeis.org

0, 1, 12, 15, 37, 42, 75, 82, 126, 135, 190, 201, 267, 280, 357, 372, 460, 477, 576, 595, 705, 726, 847, 870, 1002, 1027, 1170, 1197, 1351, 1380, 1545, 1576, 1752, 1785, 1972, 2007, 2205, 2242, 2451, 2490, 2710, 2751, 2982, 3025, 3267, 3312, 3565, 3612, 3876, 3925, 4200, 4251, 4537, 4590, 4887, 4942

Offset: 0

Ilya Gutkovskiy, Sep 29 2016

More generally, the ordinary generating function for the generalized k-gonal numbers is x*(1 + (k - 4)*x + x^2)/((1 - x)^3*(1 + x)^2). A general formula for the generalized k-gonal numbers is given by (k*(2*n^2 + 2*((-1)^n + 1)*n + (-1)^n - 1) - 2*(2*n^2 + 2*(3*(-1)^n + 1)*n + 3*((-1)^n - 1)))/16.
For k>4, Sum_{n>=1} 1/a(k,n) = 2*(k-2)/(k-4)^2 + 2*Pi*cot(2*Pi/(k-2))/(k-4). - Vaclav Kotesovec, Oct 05 2016
Numbers k for which 104*k + 121 is a square. - Bruno Berselli, Jul 10 2018
Partial sums of A317311. - Omar E. Pol, Jul 28 2018

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

Cf. A051867 (15-gonal numbers), A316672, A317311.

Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), this sequence (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

a:=[0,1,12,15,37];;  for n in [6..60] do a[n]:=a[n-1]+2*a[n-2]-2*a[n-3]-a[n-4]+a[n-5]; od; a; # Muniru A Asiru, Jul 10 2018

LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 12, 15, 37}, 56]
Table[(26 n^2 + 26 n + 9 (-1)^n (2 n + 1) - 9)/16, {n, 0, 55}]

concat(0, Vec(x*(1+11*x+x^2)/((1-x)^3*(1+x)^2) + O(x^99))) \\ Altug Alkan, Oct 01 2016

G.f.: x*(1 + 11*x + x^2)/((1 - x)^3*(1 + x)^2).
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
a(n) = (26*n^2 + 26*n + 9*(-1)^n*(2*n+1) - 9)/16.
Sum_{n>=1} 1/a(n) = 26/121 + 2*Pi*cot(2*Pi/13)/11 = 1.3032041594895857... . - Vaclav Kotesovec, Oct 05 2016

A303813 Generalized 19-gonal (or enneadecagonal) numbers: m(17m - 15)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 16, 19, 49, 54, 99, 106, 166, 175, 250, 261, 351, 364, 469, 484, 604, 621, 756, 775, 925, 946, 1111, 1134, 1314, 1339, 1534, 1561, 1771, 1800, 2025, 2056, 2296, 2329, 2584, 2619, 2889, 2926, 3211, 3250, 3550, 3591, 3906, 3949, 4279, 4324, 4669, 4716, 5076, 5125, 5500, 5551, 5941, 5994, 6399

Offset: 0

Omar E. Pol, Jun 06 2018

Numbers k for which 136*k + 225 is a square. - Bruno Berselli, Jul 10 2018

Partial sums of A317315. - Omar E. Pol, Jul 28 2018

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

Cf. A051871, A316672, A317315.

Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), this sequence (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

a:=[0,1,16,19,49];;  for n in [6..60] do a[n]:=a[n-1]+2*a[n-2]-2*a[n-3]-a[n-4]+a[n-5]; od; a; # Muniru A Asiru, Jul 10 2018

With[{nn = 54}, {0}~Join~Riffle[Array[PolygonalNumber[19, #] &, Ceiling[nn/2]], Array[PolygonalNumber[19, -#] &, Ceiling[nn/2]]]] (* Michael De Vlieger, Jun 06 2018 *)
CoefficientList[ Series[-x (x^2 + 15x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 50}], x] (* or *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 16, 19, 49}, 51] (* Robert G. Wilson v, Jul 28 2018 *)

concat(0, Vec(x*(1 + 15*x + x^2) / ((1 - x)^3*(1 + x)^2) + O(x^40))) \\ Colin Barker, Jun 08 2018

From Colin Barker, Jun 08 2018: (Start)
G.f.: x*(1 + 15*x + x^2) / ((1 - x)^3*(1 + x)^2).
a(n) = (34*n^2 + 60*n)/16 for n even.
a(n) = (34*n^2 + 8*n - 26)/16 for n odd.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n>4.
(End)

A303815 Generalized 29-gonal (or icosienneagonal) numbers: m(27m - 25)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 26, 29, 79, 84, 159, 166, 266, 275, 400, 411, 561, 574, 749, 764, 964, 981, 1206, 1225, 1475, 1496, 1771, 1794, 2094, 2119, 2444, 2471, 2821, 2850, 3225, 3256, 3656, 3689, 4114, 4149, 4599, 4636, 5111, 5150, 5650, 5691, 6216, 6259, 6809, 6854, 7429, 7476, 8076

Offset: 0

Omar E. Pol, Jun 06 2018

Numbers k such that 216*k + 625 is a square. - Bruno Berselli, Jun 08 2018

Partial sums of A317325.

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

Cf. A255187, A277990 (see the third comment), A316672, A317325.

Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), this sequence (k=29), A316729 (k=30).

Table[(54 n (n + 1) + 23 (2 n + 1) (-1)^n - 23)/16, {n, 0, 50}] (* Bruno Berselli, Jun 07 2018 *)
CoefficientList[ Series[-x (x^2 + 25x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 50}], x] (* or *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 26, 29, 79, 84}, 50] (* Robert G. Wilson v, Jul 28 2018 *)
With[{nn=25},Riffle[Table[1-(29x)/2+(27x^2)/2,{x,nn}],PolygonalNumber[ 29,Range[ nn]]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 26 2020 *)

concat(0, Vec(x*(1 + 25*x + x^2)/((1 + x)^2*(1 - x)^3) + O(x^40))) \\ Colin Barker, Jun 12 2018

From Bruno Berselli, Jun 07 2018: (Start)
G.f.: x*(1 + 25*x + x^2)/((1 + x)^2*(1 - x)^3).
a(n) = a(-n-1) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
a(n) = (54*n*(n + 1) + 23*(2*n + 1)*(-1)^n - 23)/16. Therefore:
a(n) = n*(27*n + 50)/8, if n is even, or (n + 1)*(27*n - 23)/8 otherwise.
2*(2*n - 1)*a(n) + 2*(2*n + 1)*a(n-1) - n*(27*n^2 - 25) = 0. (End)
Sum_{n>=1} 1/a(n) =  2*(27 + 25*Pi*cot(2*Pi/27))/625. - Amiram Eldar, Mar 01 2022

A303298 Generalized 21-gonal (or icosihenagonal) numbers: m(19m - 17)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 18, 21, 55, 60, 111, 118, 186, 195, 280, 291, 393, 406, 525, 540, 676, 693, 846, 865, 1035, 1056, 1243, 1266, 1470, 1495, 1716, 1743, 1981, 2010, 2265, 2296, 2568, 2601, 2890, 2925, 3231, 3268, 3591, 3630, 3970, 4011, 4368, 4411, 4785, 4830, 5221, 5268, 5676, 5725, 6150, 6201, 6643, 6696, 7155, 7210

Offset: 0

Omar E. Pol, Jun 23 2018

Numbers k for which 152*k + 289 is a square. - Bruno Berselli, Jul 10 2018

Partial sums of A317317. - Omar E. Pol, Jul 28 2018

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

Cf. A051873, A316672, A317317.

Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), A303305 (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), this sequence (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

a:=[0,1,18,21,55];;  for n in [6..60] do a[n]:=a[n-1]+2*a[n-2]-2*a[n-3]-a[n-4]+a[n-5]; od; a; # Muniru A Asiru, Jul 10 2018

a:= n-> (m-> m*(19*m-17)/2)(-ceil(n/2)*(-1)^n):
seq(a(n), n=0..60);  # Alois P. Heinz, Jun 23 2018

CoefficientList[Series[-(x^2 + 17 x + 1) x/((x + 1)^2*(x - 1)^3), {x, 0, 55}], x] (* or *)
Array[PolygonalNumber[21, (1 - 2 Boole[EvenQ@ #]) Ceiling[#/2]] &, 56, 0] (* Michael De Vlieger, Jul 10 2018 *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 18, 21, 55}, 51] (* Robert G. Wilson v, Jul 28 2018 *)

concat(0, Vec(x*(1 + 17*x + x^2) / ((1 - x)^3*(1 + x)^2) + O(x^60))) \\ Colin Barker, Jun 24 2018

G.f.: -(x^2+17*x+1)*x/((x+1)^2*(x-1)^3). - Alois P. Heinz, Jun 23 2018
From Colin Barker, Jun 24 2018: (Start)
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n>4.
a(n) = (19*n^2 + 34*n) / 8 for n even.
a(n) = (19*n^2 + 4*n - 15) / 8 for n odd.
(End)
Sum_{n>=1} 1/a(n) = 38/289 + 2*Pi*cot(2*Pi/19)/17. - Amiram Eldar, Feb 28 2022

A303305 Generalized 17-gonal (or heptadecagonal) numbers: m(15m - 13)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

Original entry on oeis.org

0, 1, 14, 17, 43, 48, 87, 94, 146, 155, 220, 231, 309, 322, 413, 428, 532, 549, 666, 685, 815, 836, 979, 1002, 1158, 1183, 1352, 1379, 1561, 1590, 1785, 1816, 2024, 2057, 2278, 2313, 2547, 2584, 2831, 2870, 3130, 3171, 3444, 3487, 3773, 3818, 4117, 4164, 4476, 4525, 4850

Offset: 0

Omar E. Pol, Jun 06 2018

120*a(n) + 169 is a square. - Bruno Berselli, Jun 08 2018
Partial sums of A317313. - Omar E. Pol, Jul 28 2018
Generalized k-gonal numbers are second k-gonal numbers and positive terms of k-gonal numbers interleaved, k >= 5. They are also the partial sums of the sequence formed by the multiples of (k - 4) and the odd numbers (A005408) interleaved, k >= 5. In this case k = 17. - Omar E. Pol, Apr 25 2021

			From _Omar E. Pol_, Apr 24 2021: (Start)
Illustration of initial terms as vertices of a rectangular spiral:
        43_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _17
         |                                                   |
         |                         0                         |
         |                         |_ _ _ _ _ _ _ _ _ _ _ _ _|
         |                         1                         14
         |
        48
More generally, all generalized k-gonal numbers can be represented with this kind of spirals, k >= 5". (End)

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

Cf. A051869, A194715, A244636, A317313.

Sequences of generalized k-gonal numbers: A001318 (k=5), A000217 (k=6), A085787 (k=7), A001082 (k=8), A118277 (k=9), A074377 (k=10), A195160 (k=11), A195162 (k=12), A195313 (k=13), A195818 (k=14), A277082 (k=15), A274978 (k=16), this sequence (k=17), A274979 (k=18), A303813 (k=19), A218864 (k=20), A303298 (k=21), A303299 (k=22), A303303 (k=23), A303814 (k=24), A303304 (k=25), A316724 (k=26), A316725 (k=27), A303812 (k=28), A303815 (k=29), A316729 (k=30).

With[{pp = 17, nn = 55}, {0}~Join~Riffle[Array[PolygonalNumber[pp, #] &, Ceiling[nn/2]], Array[PolygonalNumber[pp, -#] &, Ceiling[nn/2]]]] (* Michael De Vlieger, Jun 06 2018 *)
Table[(30 n (n + 1) + 11 (2 n + 1) (-1)^n - 11)/16, {n, 0, 60}] (* Bruno Berselli, Jun 08 2018 *)
CoefficientList[ Series[-x (x^2 + 13x + 1)/((x - 1)^3 (x + 1)^2), {x, 0, 50}], x] (* or *)
LinearRecurrence[{1, 2, -2, -1, 1}, {0, 1, 14, 17, 43}, 51] (* Robert G. Wilson v, Jul 28 2018 *)

concat(0, Vec(x*(1 + 13*x + x^2)/((1 + x)^2*(1 - x)^3) + O(x^40))) \\ Colin Barker, Jun 12 2018

From Bruno Berselli, Jun 08 2018: (Start)
G.f.: x*(1 + 13*x + x^2)/((1 + x)^2*(1 - x)^3).
a(n) = a(-n-1) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5).
a(n) = (30*n*(n + 1) + 11*(2*n + 1)*(-1)^n - 11)/16. Therefore:
a(n) = n*(15*n + 26)/8, if n is even, or (n + 1)*(15*n - 11)/8 otherwise.
2*(2*n - 1)*a(n) + 2*(2*n + 1)*a(n-1) - n*(15*n^2 - 13) = 0. (End)

cp's OEIS Frontend

A028895 5 times triangular numbers: a(n) = 5*n*(n+1)/2.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Python

Formula

A033583 a(n) = 10*n^2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A147875 Second heptagonal numbers: a(n) = n*(5*n+3)/2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

GAP

Magma

Mathematica

PARI

Sage

Formula

Extensions

A274979 Integers of the form m*(m + 7)/8.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

Python

Sage

Formula

A274978 Integers of the form m*(m + 6)/7.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

Sage

Formula

A277082 Generalized 15-gonal (or pentadecagonal) numbers: n*(13*n - 11)/2, n = 0,+1,-1,+2,-2,+3,-3, ...

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

GAP

A028895 5 times triangular numbers: a(n) = 5n(n+1)/2.

A147875 Second heptagonal numbers: a(n) = n(5n+3)/2.

A277082 Generalized 15-gonal (or pentadecagonal) numbers: n(13n - 11)/2, n = 0,+1,-1,+2,-2,+3,-3, ...

A303813 Generalized 19-gonal (or enneadecagonal) numbers: m(17m - 15)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

A303815 Generalized 29-gonal (or icosienneagonal) numbers: m(27m - 25)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

A303298 Generalized 21-gonal (or icosihenagonal) numbers: m(19m - 17)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...

A303305 Generalized 17-gonal (or heptadecagonal) numbers: m(15m - 13)/2 with m = 0, +1, -1, +2, -2, +3, -3, ...