A161700 -id:A161700 - cp's OEIS frontend

A080856 a(n) = 8n^2 - 4n + 1.

1, 5, 25, 61, 113, 181, 265, 365, 481, 613, 761, 925, 1105, 1301, 1513, 1741, 1985, 2245, 2521, 2813, 3121, 3445, 3785, 4141, 4513, 4901, 5305, 5725, 6161, 6613, 7081, 7565, 8065, 8581, 9113, 9661, 10225, 10805, 11401, 12013, 12641, 13285, 13945, 14621

Offset: 0

Paul Barry, Feb 23 2003

The old definition of this sequence was "Generalized polygonal numbers".
Row T(4,n) of A080853.
{a(k): 0 <= k < 3} = divisors of 25. - Reinhard Zumkeller, Jun 17 2009
Let A be the Hessenberg matrix of order n, defined by: A[1,j]=1, A[i,i]:=4, (i>1), A[i,i-1]=-1, and A[i,j]=0 otherwise. Then, for n>=3, a(n-1)= coeff(charpoly(A,x),x^(n-2)). - Milan Janjic, Jan 27 2010
Also sequence found by reading the segment (1, 5) together with the line from 5, in the direction 5, 25,..., in the square spiral whose vertices are the generalized hexagonal numbers A000217. - Omar E. Pol, Nov 05 2012
For n > 0: A049061(a(n)) = 0, when the triangle of "signed Eulerian numbers" in A049061 is seen as flattened sequence. - Reinhard Zumkeller, Jan 31 2013

G. C. Greubel, Table of n, a(n) for n = 0..5000
Milan Janjic, Hessenberg Matrices and Integer Sequences, J. Int. Seq. 13 (2010) # 10.7.8.
Reinhard Zumkeller, Enumerations of Divisors.
Index entries for linear recurrences with constant coefficients, signature (3,-3,1).

Cf. A005408, A000124, A016813, A049061, A080853, A086514, A000125, A058331, A002522, A161701, A161702, A161703, A000127, A161704, A161706, A161707, A161708, A161710, A161711, A161712, A161713, A161715, A006261.
A060820 is another version (but the present sequence is the main entry).
A row of the array in A386478.

A080856:=n->8*n^2 - 4*n + 1: seq(A080856(n), n=0..100); # Wesley Ivan Hurt, Jul 16 2017

LinearRecurrence[{3, -3, 1}, {1, 5, 25}, 80] (* Vladimir Joseph Stephan Orlovsky, Feb 17 2012 *)

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

G.f.: (1+2*x+13*x^2)/(1-x)^3.
a(n) = A060820(n), n>0. - R. J. Mathar, Sep 18 2008
a(n) = C(n,0) + 4*C(n,1) + 16*C(n,2). - Reinhard Zumkeller, Jun 17 2009
a(n) = 16*n+a(n-1)-12 with n>0, a(0)=1. - Vincenzo Librandi, Aug 08 2010
E.g.f.: (8*x^2 + 4*x + 1)*exp(x). - G. C. Greubel, Jun 16 2017

Definition replaced with the closed form by Bruno Berselli, Jan 16 2013

A086514 Difference between the arithmetic mean of the neighbors of the terms and the term itself follows the pattern 0,1,2,3,4,5,...

Original entry on oeis.org

1, 2, 3, 6, 13, 26, 47, 78, 121, 178, 251, 342, 453, 586, 743, 926, 1137, 1378, 1651, 1958, 2301, 2682, 3103, 3566, 4073, 4626, 5227, 5878, 6581, 7338, 8151, 9022, 9953, 10946, 12003, 13126, 14317, 15578, 16911, 18318, 19801, 21362, 23003, 24726

Offset: 1

Amarnath Murthy, Jul 29 2003

{a(k): 1 <= k <= 4} = divisors of 6. - Reinhard Zumkeller, Jun 17 2009

			2 = (1+3)/2 -0. 3 = (2+6)/2 - 1, 6 = (3+13)/2 - 2, etc.

B. Berselli, Table of n, a(n) for n = 1..10000 - _Bruno Berselli_, May 31 2010
R. Zumkeller, Enumerations of Divisors - _Reinhard Zumkeller_, Jun 17 2009
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Cf. A005408, A000124, A016813, A000125, A058331, A002522, A161701, A161702, A161703, A000127, A161704, A161706, A161707, A161708, A161710, A080856, A161711, A161712, A161713, A161715, A006261, A177342, A014106, A000290.

a(n) = n*(n^2-6*n+14)/3-2 \\ Charles R Greathouse IV, Jun 11 2015

a(n)+ n-2 = {a(n-1) +a(n+1)}/2
a(n) = (n^3-6*n^2+14*n-6)/3.
Contribution from Bruno Berselli, May 31 2010: (Start)
G.f.: (1-2*x+x^2+2*x^3)/(1-x)^4.
a(n)-4*a(n-1)+6*a(n-2)-4*a(n-3)+a(n-4) = 0 with n>4. For n=9, 121-4*78+6*47-4*26+13 = 0.
a(n) = ( A177342(n)-A000290(n-1)-3*A014106(n-2) )/4 with n>1. For n=11, a(11) = (1671-100-3*189)/4 = 251. (End)

More terms from David Wasserman, Mar 10 2005

A161706 a(n) = (-11n^5 + 145n^4 - 635n^3 + 1115n^2 - 494*n + 120)/120.

Original entry on oeis.org

1, 2, 4, 5, 10, 20, 21, -27, -201, -626, -1486, -3035, -5608, -9632, -15637, -24267, -36291, -52614, -74288, -102523, -138698, -184372, -241295, -311419, -396909, -500154, -623778, -770651, -943900, -1146920, -1383385, -1657259, -1972807

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 6} = divisors of 20:

a(n) = A027750(A006218(19) + k + 1), 0 <= k < A000005(20).

			Differences of divisors of 20 to compute the coefficients of their interpolating polynomial, see formula:
  1     2     4     5    10    20
     1     2     1     5    10
        1    -1     4     5
          -2     5     1
              7    -4
               -11

G. C. Greubel, Table of n, a(n) for n = 0..1000
Reinhard Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A005408, A000124, A016813, A086514, A000125, A058331, A002522, A161701, A161702, A161703, A000127, A161704, A161707, A161708, A161710, A080856, A161711, A161712, A161713, A161715, A006261.

Cf. A005018, A161700, A161856. - Reinhard Zumkeller, Jun 21 2009

[(-11*n^5 + 145*n^4 - 635*n^3 + 1115*n^2 - 494*n + 120)/120: n in [0..50]]; // Vincenzo Librandi, Dec 27 2010

A161706:=n->(-11*n^5 + 145*n^4 - 635*n^3 + 1115*n^2 - 494*n + 120)/120: seq(A161706(n), n=0..50); # Wesley Ivan Hurt, Jul 16 2017

CoefficientList[Series[(1 - 4*x + 7*x^2 - 9*x^3 + 15*x^4 - 21*x^5)/(1 - x)^6, {x, 0, 50}], x] (* G. C. Greubel, Jul 16 2017 *)

a(n)=(-11*n^5+145*n^4-635*n^3+1115*n^2-494*n+120)/120 \\ Charles R Greathouse IV, Sep 24 2015

def A161706(n): return (n*(n*(n*(n*(145 - 11*n) - 635) + 1115) - 494) + 120)//15>>3 # Chai Wah Wu, Oct 23 2023

a(n) = C(n,0) + C(n,1) + C(n,2) - 2*C(n,3) + 7*C(n,4) - 11*C(n,5).

G.f.: (1-4*x+7*x^2-9*x^3+15*x^4-21*x^5)/(1-x)^6. - Colin Barker, Apr 25 2012

A161710 a(n) = (-6n^7 + 154n^6 - 1533n^5 + 7525n^4 - 18879n^3 + 22561n^2 - 7302*n + 2520)/2520.

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 12, 24, 39, -2, -295, -1308, -3980, -9996, -22150, -44808, -84483, -150534, -256001, -418588, -661806, -1016288, -1521288, -2226376, -3193341, -4498314, -6234123, -8512892, -11468896, -15261684, -20079482, -26142888

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 8} = divisors of 24:

a(n) = A027750(A006218(23) + k + 1), 0 <= k < A000005(24).

			Differences of divisors of 24 to compute the coefficients of their interpolating polynomial, see formula:
1 ... 2 ... 3 ... 4 ... 6 ... 8 .. 12 .. 24
.. 1 ... 1 ... 1 ... 2 ... 2 ... 4 .. 12
..... 0 ... 0 ... 1 ... 0 ... 2 ... 8
........ 0 ... 1 .. -1 ... 2 ... 6
........... 1 .. -2 ... 3 ... 4
............. -3 ... 5 ... 1
................. 8 .. -4
.................. -12.

Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Reinhard Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (8,-28,56,-70,56,-28,8,-1).

Cf. A005408, A000124, A016813, A086514, A000125, A058331, A002522, A161701, A161702, A161703, A000127, A161704, A161706, A161707, A161708, A080856, A161711, A161712, A161713, A161715, A006261, A018253, A161700, A161856.

[(-6*n^7 + 154*n^6 - 1533*n^5 + 7525*n^4 - 18879*n^ 3 + 22561*n^2 - 7302*n + 2520)/2520: n in [0..40]]; // Vincenzo Librandi, Jul 17 2011

Table[(-6n^7+154n^6-1533n^5+7525n^4-18879n^3+22561n^2-7302n+2520)/2520,{n,0,40}] (* or *) LinearRecurrence[{8,-28,56,-70,56,-28,8,-1},{1,2,3,4,6,8,12,24},40] (* Harvey P. Dale, Jul 15 2012 *)

a(n)=(-6*n^7+154*n^6-1533*n^5+7525*n^4-18879*n^3+22561*n^2-7302*n+2520)/2520 \\ Charles R Greathouse IV, Sep 24 2015

A161710_list, m = [1], [-12, 80, -223, 333, -281, 127, -23, 1]
for _ in range(1,10**2):
    for i in range(7):
        m[i+1]+= m[i]
    A161710_list.append(m[-1]) # Chai Wah Wu, Nov 09 2014

a(n) = C(n,0) + C(n,1) + C(n,4) - 3*C(n,5) + 8*C(n,6) - 12*C(n,7).
G.f.: (1-6*x+15*x^2-20*x^3+16*x^4-12*x^5+18*x^6-24*x^7)/(1-x)^8. - Bruno Berselli, Jul 17 2011
a(0)=1, a(1)=2, a(2)=3, a(3)=4, a(4)=6, a(5)=8, a(6)=12, a(7)=24, a(n)=8*a(n-1)-28*a(n-2)+56*a(n-3)-70*a(n-4)+56*a(n-5)-28*a(n-6)+ 8*a(n-7)- a(n-8). - Harvey P. Dale, Jul 15 2012

A161713 a(n) = (-n^5 + 15n^4 - 65n^3 + 125n^2 - 34n + 40)/40.

Original entry on oeis.org

1, 2, 4, 7, 14, 28, 49, 71, 79, 46, -70, -329, -812, -1624, -2897, -4793, -7507, -11270, -16352, -23065, -31766, -42860, -56803, -74105, -95333, -121114, -152138, -189161, -233008, -284576, -344837, -414841, -495719, -588686, -695044

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 6} = divisors of 28:

a(n) = A027750(A006218(27) + k + 1), 0 <= k < A000005(28).

			Differences of divisors of 28 to compute the coefficients of their interpolating polynomial, see formula:
  1     2     4     7    14    28
     1     2     3     7    14
        1     1     4     7
           0     3     3
              3     0
                -3

Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Reinhard Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A000124, A000125, A000127, A002522, A005408, A006261, A016813, A018254, A058331, A080856, A086514, A161700, A161701, A161702, A161703, A161704, A161706, A161707, A161708, A161710, A161711, A161712, A161715, A161856.

[(-n^5 + 15*n^4 - 65*n^3 + 125*n^2 - 34*n + 40)/40: n in [0..40]]; // Vincenzo Librandi, Jul 17 2011

Table[(-n^5+15n^4-65n^3+125n^2-34n)/40+1,{n,0,40}] (* or *) LinearRecurrence[{6,-15,20,-15,6,-1},{1,2,4,7,14,28},40] (* Harvey P. Dale, Jan 14 2014 *)

a(n)=(-n^5+15*n^4-65*n^3+125*n^2-34*n+40)/40 \\ Charles R Greathouse IV, Sep 24 2015

def A161713(n): return n*(n*(n*(n*(15 - n) - 65) + 125) - 34)//40 + 1 # Chai Wah Wu, Dec 16 2021

a(n) = C(n,0) + C(n,1) + C(n,2) + 3*C(n,4) - 3*C(n,5).
G.f.: -(-1+4*x-7*x^2+7*x^3-7*x^4+7*x^5)/(-1+x)^6. - R. J. Mathar, Jun 18 2009
a(0)=1, a(1)=2, a(2)=4, a(3)=7, a(4)=14, a(5)=28, a(n)=6*a(n-1)- 15*a(n-2)+ 20*a(n-3)-15*a(n-4)+6*a(n-5)-a(n-6). - Harvey P. Dale, Jan 14 2014

A161715 a(n) = (50n^7 - 1197n^6 + 11333n^5 - 53655n^4 + 132125n^3 - 156828n^2 + 73212*n + 5040)/5040.

Original entry on oeis.org

1, 2, 3, 5, 6, 10, 15, 30, 171, 886, 3359, 10143, 26072, 59502, 123931, 240048, 438261, 761754, 1270123, 2043641, 3188202, 4840994, 7176951, 10416034, 14831391, 20758446, 28604967, 38862163, 52116860, 69064806, 90525155, 117456180

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 8} = divisors of 30:

a(n) = A027750(A006218(29) + k + 1), 0 <= k < A000005(30).

			Differences of divisors of 30 to compute the coefficients of their interpolating polynomial, see formula:
  1     2     3     5     6    10    15    30
     1     1     2     1     4     5    15
        0     1    -1     3     1    10
           1    -2     4    -2     9
             -3     6    -6    11
                 9   -12    17
                  -21    29
                      50

Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Reinhard Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (8,-28,56,-70,56,-28,8,-1).

Cf. A000124, A000125, A000127, A002522, A005408, A006261, A016813, A058331, A080856, A086514, A161701, A161702, A161703, A161704, A161706, A161707, A161708, A161710, A161711, A161712, A161713.

Cf. A018255, A161700, A161856. - Reinhard Zumkeller, Jun 21 2009

[(50*n^7 - 1197*n^6 + 11333*n^5 - 53655*n^4 + 132125*n^3 - 156828*n^2 + 73212*n + 5040)/5040: n in [0..40]]; // Vincenzo Librandi, Jul 17 2011

CoefficientList[Series[(1-6*x+15*x^2-19*x^3+8*x^4+18*x^5-51*x^6+84*x^7)/(-1+x)^8, {x, 0, 50}], x] (* G. C. Greubel, Jul 16 2017 *)

x='x+O('x^50); Vec((1 -6*x +15*x^2 -19*x^3 +8*x^4 +18*x^5 -51*x^6 +84*x^7) /(-1+x)^8) \\ G. C. Greubel, Jul 16 2017

A161710_list, m = [1], [50, -321, 864, -1249, 1024, -452, 85, 1]
for _ in range(1,10**2):
    for i in range(7):
        m[i+1]+= m[i]
    A161710_list.append(m[-1]) # Chai Wah Wu, Nov 09 2014

a(n) = C(n,0) + C(n,1) + C(n,3) - 3*C(n,4) + 9*C(n,5) - 21*C(n,6) + 50*C(n,7).
G.f.: (1-6*x+15*x^2-19*x^3+8*x^4+18*x^5-51*x^6+84*x^7)/(-1+x)^8. - R. J. Mathar, Jun 18 2009
a(n) = 8*a(n-1)-28*a(n-2)+56*a(n-3)-70*a(n-4)+56*a(n-5)-28*a(n-6)+8*a(n-7)-a(n-8). - Wesley Ivan Hurt, Apr 26 2021

A161701 a(n) = (n^5 - 5n^4 + 5n^3 + 5n^2 + 114n + 120)/120.

Original entry on oeis.org

1, 2, 3, 4, 6, 12, 28, 64, 135, 262, 473, 804, 1300, 2016, 3018, 4384, 6205, 8586, 11647, 15524, 20370, 26356, 33672, 42528, 53155, 65806, 80757, 98308, 118784, 142536, 169942, 201408, 237369, 278290, 324667, 377028, 435934, 501980, 575796, 658048

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 6} = divisors of 12:

a(n) = A027750(A006218(11) + k + 1), 0 <= k < A000005(12).

			Differences of divisors of 12 to compute the coefficients of their interpolating polynomial, see formula:
  1     2     3     4     6    12
     1     1     1     2     6
        0     0     1     4
           0     1     3
              1     2
                 1

Vincenzo Librandi, Table of n, a(n) for n = 0..10000
R. Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A000124, A000125, A000127, A002522, A005408, A006261, A016813, A058331, A080856, A086514, A161702, A161703, A161704, A161706, A161707, A161708, A161710, A161711, A161712, A161713, A161715.

[(n^5 - 5*n^4 + 5*n^3 + 5*n^2 + 114*n + 120)/120: n in [0..50]]; // Vincenzo Librandi, Dec 27 2010

A161701:=n->(n^5 - 5*n^4 + 5*n^3 + 5*n^2 + 114*n + 120)/120: seq(A161701(n), n=0..60); # Wesley Ivan Hurt, Jul 16 2017

CoefficientList[Series[(1-4*x+6*x^2-4*x^3+2*x^4)/(1-x)^6, {x, 0, 50}], x] (* G. C. Greubel, Jul 16 2017 *)

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

a(n) = C(n,0) + C(n,1) + C(n,4) + C(n,5).

G.f.: (1-4*x+6*x^2-4*x^3+2*x^4)/(1-x)^6. - Colin Barker, Aug 20 2012

A161704 a(n) = (3n^5 - 35n^4 + 145n^3 - 235n^2 + 152*n + 30)/30.

Original entry on oeis.org

1, 2, 3, 6, 9, 18, 59, 190, 513, 1186, 2435, 4566, 7977, 13170, 20763, 31502, 46273, 66114, 92227, 125990, 168969, 222930, 289851, 371934, 471617, 591586, 734787, 904438, 1104041, 1337394, 1608603, 1922094, 2282625, 2695298, 3165571, 3699270

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 6} = divisors of 18:

a(n) = A027750(A006218(17) + k + 1), 0 <= k < A000005(18).

			Differences of divisors of 18 to compute the coefficients of their interpolating polynomial, see formula:
  1     2     3     6     9    18
     1     1     3     3     9
        0     2     0     6
           2    -2     6
             -4     8
                12

G. C. Greubel, Table of n, a(n) for n = 0..1000
R. Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Cf. A000124, A000125, A000127, A002522, A005408, A006261, A016813, A018251, A058331, A080856, A086514, A161701, A161702, A161703, A161706, A161707, A161708, A161710, A161711, A161712, A161713, A161715, A161856.

[(3*n^5 - 35*n^4 + 145*n^3 - 235*n^2 + 152*n + 30)/30: n in [0..50]]; // Vincenzo Librandi, Dec 27 2010

A161704:=n->(3*n^5 - 35*n^4 + 145*n^3 - 235*n^2 + 152*n + 30)/30: seq(A161704(n), n=0..50); # Wesley Ivan Hurt, Jul 16 2017

CoefficientList[Series[(1 - 4*x + 6*x^2 - 2*x^3 - 7*x^4 + 18*x^5)/(x - 1)^6, {x, 0, 50}], x] (* G. C. Greubel, Jul 16 2017 *)

a(n)=n*(3*n^4-35*n^3+145*n^2-235*n+152)/30+1

a(n) = C(n,0) + C(n,1) + 2*C(n,3) - 4*C(n,4) + 12*C(n,5).

G.f.: ( 1-4*x+6*x^2-2*x^3-7*x^4+18*x^5 ) / (x-1)^6. - R. J. Mathar, Jul 12 2016

A161705 a(n) = 18*n + 1.

Original entry on oeis.org

1, 19, 37, 55, 73, 91, 109, 127, 145, 163, 181, 199, 217, 235, 253, 271, 289, 307, 325, 343, 361, 379, 397, 415, 433, 451, 469, 487, 505, 523, 541, 559, 577, 595, 613, 631, 649, 667, 685, 703, 721, 739, 757, 775, 793, 811, 829, 847, 865, 883, 901, 919, 937, 955

Offset: 0

Reinhard Zumkeller, Jun 17 2009

Digital root of a(n) is 1. - Alexander R. Povolotsky, Jun 13 2012

These numbers can be written as the sum of four integer cubes as a(n) = (2*n + 14)^3 + (3*n + 30)^3 + (- 2*n - 23)^3 + (- 3*n - 26)^3. - Arkadiusz Wesolowski, Aug 15 2013

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

Cf. A005408, A016813, A016921, A017281, A017533, A128470, A158057, A161700, A161709, A161714, A287326 (fourth column).

Cf. A016777, A017173.

List([0..60], n-> 18*n+1); # G. C. Greubel, Sep 18 2019

[18*n +1: n in [0..60]]; // G. C. Greubel, Sep 18 2019

seq(18*n+1, n=0..60); # G. C. Greubel, Sep 18 2019

Range[1, 1000, 18] (* Vladimir Joseph Stephan Orlovsky, Jun 01 2011 *)
LinearRecurrence[{2,-1},{1,19}, 60] (* G. C. Greubel, Feb 17 2017 *)

vector(60, n, 18*n-17) \\ G. C. Greubel, Feb 17 2017

[18*n+1 for n in (0..60)] # G. C. Greubel, Sep 18 2019

a(n) = 18*n + 1, n >= 0.
a(n) = a(n-1) + 18 (with a(0)=1). - Vincenzo Librandi, Dec 27 2010
From G. C. Greubel, Feb 17 2017: (Start)
G.f.: (1 + 17*x)/(1-x)^2.
E.g.f.: (1 + 18*x)*exp(x).
a(n) = 2*a(n-1) - a(n-2). (End)
a(n) = A017173(2*n) = A016777(6*n). - Elmo R. Oliveira, Apr 12 2025

A161708 a(n) = -n^3 + 7n^2 - 5n + 1.

Original entry on oeis.org

1, 2, 11, 22, 29, 26, 7, -34, -103, -206, -349, -538, -779, -1078, -1441, -1874, -2383, -2974, -3653, -4426, -5299, -6278, -7369, -8578, -9911, -11374, -12973, -14714, -16603, -18646, -20849, -23218, -25759, -28478, -31381, -34474, -37763, -41254

Offset: 0

Reinhard Zumkeller, Jun 17 2009

{a(k): 0 <= k < 4} = divisors of 22:

a(n) = A027750(A006218(21) + k + 1), 0 <= k < A000005(22).

			Differences of divisors of 22 to compute the coefficients of their interpolating polynomial, see formula:
  1     2    11    22
     1     9    11
        8     2
          -6

Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Reinhard Zumkeller, Enumerations of Divisors
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).

Cf. A005408, A000124, A016813, A086514, A000125, A058331, A002522, A161701, A161702, A161703, A000127, A161704, A161706, A161707, A161710, A080856, A161711, A161712, A161713, A161715, A006261.

[-n^3 + 7*n^2 - 5*n + 1: n in [0..40]]; // Vincenzo Librandi, Jul 17 2011

Table[-n^3+7n^2-5n+1,{n,0,40}] (* or *) LinearRecurrence[{4,-6,4,-1},{1,2,11,22},40] (* Harvey P. Dale, Nov 12 2013 *)

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

a(n) = C(n,0) + C(n,1) + 8*C(n,2) - 6*C(n,3).
G.f.: -(-1+2*x-9*x^2+14*x^3)/(-1+x)^4. - R. J. Mathar, Jun 18 2009
a(n) = 4*a(n-1)-6*a(n-2)+4*a(n-3)-a(n-4) with a(0)=1, a(1)=2, a(2)=11, a(3)=22. - Harvey P. Dale, Nov 12 2013
E.g.f.: (-x^3 + 4*x^2 + x + 1)*exp(x). - G. C. Greubel, Jul 16 2017

cp's OEIS Frontend

A080856 a(n) = 8*n^2 - 4*n + 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A086514 Difference between the arithmetic mean of the neighbors of the terms and the term itself follows the pattern 0,1,2,3,4,5,...

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula

Extensions

A161706 a(n) = (-11*n^5 + 145*n^4 - 635*n^3 + 1115*n^2 - 494*n + 120)/120.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Python

Formula

A161710 a(n) = (-6*n^7 + 154*n^6 - 1533*n^5 + 7525*n^4 - 18879*n^3 + 22561*n^2 - 7302*n + 2520)/2520.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Python

Formula

A161713 a(n) = (-n^5 + 15*n^4 - 65*n^3 + 125*n^2 - 34*n + 40)/40.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Python

Formula

A161715 a(n) = (50*n^7 - 1197*n^6 + 11333*n^5 - 53655*n^4 + 132125*n^3 - 156828*n^2 + 73212*n + 5040)/5040.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica

A080856 a(n) = 8n^2 - 4n + 1.

A161706 a(n) = (-11n^5 + 145n^4 - 635n^3 + 1115n^2 - 494*n + 120)/120.

A161710 a(n) = (-6n^7 + 154n^6 - 1533n^5 + 7525n^4 - 18879n^3 + 22561n^2 - 7302*n + 2520)/2520.

A161713 a(n) = (-n^5 + 15n^4 - 65n^3 + 125n^2 - 34n + 40)/40.

A161715 a(n) = (50n^7 - 1197n^6 + 11333n^5 - 53655n^4 + 132125n^3 - 156828n^2 + 73212*n + 5040)/5040.

A161701 a(n) = (n^5 - 5n^4 + 5n^3 + 5n^2 + 114n + 120)/120.

A161704 a(n) = (3n^5 - 35n^4 + 145n^3 - 235n^2 + 152*n + 30)/30.

A161708 a(n) = -n^3 + 7n^2 - 5n + 1.