login
Search: a139268 -id:a139268
     Sort: relevance | references | number | modified | created      Format: long | short | data
a(n) = n*(13*n - 9)/2.
+10
22
0, 2, 17, 45, 86, 140, 207, 287, 380, 486, 605, 737, 882, 1040, 1211, 1395, 1592, 1802, 2025, 2261, 2510, 2772, 3047, 3335, 3636, 3950, 4277, 4617, 4970, 5336, 5715, 6107, 6512, 6930, 7361, 7805, 8262, 8732, 9215, 9711, 10220, 10742, 11277, 11825, 12386, 12960
OFFSET
0,2
COMMENTS
Sum of n-th octagonal number and n-th 9-gonal (nonagonal) number.
Sum of reciprocals of a(n), for n>0: 0.629618994194109711163742089971688...
FORMULA
G.f.: x*(2+11*x)/(1-x)^3.
a(n) + a(-n) = A152742(n).
a(0)=0, a(1)=2, a(2)=17; for n>2, a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3). - Harvey P. Dale, Jun 19 2013
E.g.f.: x*(4 + 13*x)*exp(x)/2. - G. C. Greubel, Aug 30 2019
a(n) = A000567(n) + A001106(n). - Michel Marcus, Aug 31 2019
MAPLE
A226488:=n->n*(13*n - 9)/2; seq(A226488(n), n=0..50); # Wesley Ivan Hurt, Feb 25 2014
MATHEMATICA
Table[n(13n-9)/2, {n, 0, 50}]
LinearRecurrence[{3, -3, 1}, {0, 2, 17}, 50] (* Harvey P. Dale, Jun 19 2013 *)
CoefficientList[Series[x(2+11x)/(1-x)^3, {x, 0, 45}], x] (* Vincenzo Librandi, Aug 18 2013 *)
PROG
(Magma) [n*(13*n-9)/2: n in [0..50]];
(Magma) I:=[0, 2, 17]; [n le 3 select I[n] else 3*Self(n-1)-3*Self(n-2) +Self(n-3): n in [1..50]]; // Vincenzo Librandi, Aug 18 2013
(PARI) a(n)=n*(13*n-9)/2 \\ Charles R Greathouse IV, Sep 24 2015
(Sage) [n*(13*n-9)/2 for n in (0..50)] # G. C. Greubel, Aug 30 2019
(GAP) List([0..50], n-> n*(13*n-9)/2); # G. C. Greubel, Aug 30 2019
CROSSREFS
Cf. A000567, A001106, A153080 (first differences).
Cf. numbers of the form n*(n*k-k+4)/2 listed in A005843 (k=0), A000096 (k=1), A002378 (k=2), A005449 (k=3), A001105 (k=4), A005476 (k=5), A049450 (k=6), A218471 (k=7), A002939 (k=8), A062708 (k=9), A135706 (k=10), A180223 (k=11), A139267 (n=12), this sequence (k=13), A139268 (k=14), A226489 (k=15), A139271 (k=16), A180232 (k=17), A152995 (k=18), A226490 (k=19), A152965 (k=20), A226491 (k=21), A152997 (k=22).
KEYWORD
nonn,easy
AUTHOR
Bruno Berselli, Jun 09 2013
STATUS
approved
3 times 9-gonal (or nonagonal) numbers: a(n) = 3*n*(7*n-5)/2.
+10
13
0, 3, 27, 72, 138, 225, 333, 462, 612, 783, 975, 1188, 1422, 1677, 1953, 2250, 2568, 2907, 3267, 3648, 4050, 4473, 4917, 5382, 5868, 6375, 6903, 7452, 8022, 8613, 9225, 9858, 10512, 11187, 11883, 12600, 13338, 14097, 14877, 15678, 16500, 17343, 18207, 19092, 19998
OFFSET
0,2
FORMULA
a(n) = (21*n^2 - 15*n)/2 = 3*A001106(n).
a(n) = a(n-1) + 21*n - 18 with n > 0, a(0)=0. - Vincenzo Librandi, Nov 26 2010
G.f.: 3*x*(1+6*x)/(1-x)^3. - Bruno Berselli, Jan 21 2011
a(n) = n + A226491(n). - Bruno Berselli, Jun 11 2013
From Elmo R. Oliveira, Dec 15 2024: (Start)
E.g.f.: 3*exp(x)*x*(2 + 7*x)/2.
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2. (End)
MATHEMATICA
s=0; lst={s}; Do[s+=n; AppendTo[lst, s], {n, 3, 6!, 21}]; lst (* Vladimir Joseph Stephan Orlovsky, Apr 02 2009 *)
CoefficientList[Series[3 x (1 + 6 x) / (1 - x)^3, {x, 0, 60}], x] (* Vincenzo Librandi, Jun 05 2013 *)
LinearRecurrence[{3, -3, 1}, {0, 3, 27}, 40] (* Harvey P. Dale, May 26 2015 *)
PROG
(PARI) a(n)=3*n*(7*n-5)/2 \\ Charles R Greathouse IV, Sep 24 2015
CROSSREFS
Cf. numbers of the form n*(n*k-k+6)/2, this sequence is the case k=21: see Comments lines of A226492.
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Dec 14 2008
STATUS
approved
4 times 9-gonal numbers: a(n) = 2*n*(7*n-5).
+10
9
0, 4, 36, 96, 184, 300, 444, 616, 816, 1044, 1300, 1584, 1896, 2236, 2604, 3000, 3424, 3876, 4356, 4864, 5400, 5964, 6556, 7176, 7824, 8500, 9204, 9936, 10696, 11484, 12300, 13144, 14016, 14916, 15844, 16800, 17784, 18796, 19836, 20904, 22000, 23124
OFFSET
0,2
COMMENTS
Sequence found by reading the line from 0, in the direction 0, 4, ..., in the Pythagorean spiral whose edges have length A195019 and whose vertices are the numbers A195020. The square spiral is related to the primitive Pythagorean triple [3, 4, 5]. - Omar E. Pol, Oct 13 2011
FORMULA
a(n) = 14*n^2 - 10*n = 4*A001106(n) = 2*A139268(n).
a(n) = a(n-1) + 28*n - 24 (with a(0)=0). - Vincenzo Librandi, Nov 26 2010
From Colin Barker, Apr 09 2012: (Start)
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3).
G.f.: 4*x*(1+6*x)/(1-x)^3. (End)
From Elmo R. Oliveira, Dec 27 2024: (Start)
E.g.f.: 2*exp(x)*x*(2 + 7*x).
a(n) = n + A195021(n). (End)
MATHEMATICA
s=0; lst={s}; Do[s+=n; AppendTo[lst, s], {n, 4, 8!, 28}]; lst (* Vladimir Joseph Stephan Orlovsky, Apr 02 2009 *)
4*PolygonalNumber[9, Range[0, 50]] (* Requires Mathematica version 10 or later *) (* or *) LinearRecurrence[{3, -3, 1}, {0, 4, 36}, 50] (* Harvey P. Dale, Aug 26 2019 *)
PROG
(PARI) a(n)=2*n*(7*n-5) \\ Charles R Greathouse IV, Oct 07 2015
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Dec 14 2008
STATUS
approved

Search completed in 0.006 seconds