A213153
Polylogarithm li(-n,-8/9) multiplied by (17^(n+1))/9.
Original entry on oeis.org
1, -8, -8, 1144, 4600, -650888, -5610248, 782393464, 11721120760, -1604217628808, -37345505230088, 4993399538404984, 168423884058659320, -21890458098275195528, -1020495088251266584328
Offset: 0
polylog(-5,-8/9)*17^6/9 = -650888.
-
p = 8; q = 9; f[n_] := PolyLog[-n, -p/q] (p + q)^(n + 1)/q; f[0] = 1; Array[f, 20, 0] (* Robert G. Wilson v, Dec 25 2015 *)
-
in A212846; run limnpq(nmax, 8, 9)
A213154
Polylogarithm li(-n,-9/10) multiplied by (19^(n+1))/10.
Original entry on oeis.org
1, -9, -9, 1611, 6471, -1148589, -9872289, 1732196331, 25810293591, -4461906502269, -102948316013169, 17472999720383451, 581452715402943111, -96525920129033025549, -4413961128482041139649
Offset: 0
polylog(-5,-9/10)*19^6/10 = -1148589.
-
p = 9; q = 10; f[n_] := PolyLog[-n, -p/q] (p + q)^(n + 1)/q; f[0] = 1; Array[f, 20, 0] (* Robert G. Wilson v, Dec 25 2015 *)
-
in A212846; run limnpq(nmax, 9, 10)
A213155
Polylogarithm li(-n,-1/100) multiplied by (101^(n+1))/100.
Original entry on oeis.org
1, -1, -99, -9601, -891099, -74657401, -4598985699, 83304101999, 105616323905301, 26458809087970199, 4788219040686298701, 620396956870561833599, 15434896384804497301701, -25743663357271554846442201
Offset: 0
polylog(-5,-1/100)*101^6/100 = -74657401.
-
f[n_] := PolyLog[-n, -1/100] (101^(n + 1))/100; f[0] = 1; Array[f, 14, 0] (* Robert G. Wilson v, Dec 25 2015 *)
-
in A212846; run limnpq(nmax, 1, 100)
A213156
Polylogarithm li(-n,-1/1000) multiplied by (1001^(n+1))/1000.
Original entry on oeis.org
1, -1, -999, -996001, -989010999, -974065974001, -943301698056999, -881188585190880001, -757277396614707246999, -512519922101780607498001, -34386117044101144161012999
Offset: 0
polylog(-5,-1/1000)*1001^6/1000 = -974065974001.
A354062
a(n) = Li(-2^n, 1/3), where Li(n, z) is the polylogarithm function.
Original entry on oeis.org
15, 17295, 4229255279355, 11811493418737804581195936694907475
Offset: 2
-
a[n_] := PolyLog[-2^n, 1/3]; Array[a, 5, 2]
-
a(n) = polylog(-2^n, 1/3); \\ Michel Marcus, May 16 2022
A355373
a(n) = Sum_{k=0..n} k! * (-1)^k * n^(n-k) * Stirling2(n,k).
Original entry on oeis.org
1, -1, 0, 3, 40, 455, 2016, -177373, -11564160, -497664081, -12796467200, 536297904659, 132025634657280, 14907422733429239, 1181852660381503488, 34684559693802943875, -11771644802057621110784, -3553614228958108389522721, -656899368126170250221715456
Offset: 0
-
a[n_] := Sum[k! * (-1)^k * n^(n - k) * StirlingS2[n, k], {k, 0, n}]; a[0] = 1; Array[a, 20, 0] (* Amiram Eldar, Jun 30 2022 *)
-
a(n) = sum(k=0, n, k!*(-1)^k*n^(n-k)*stirling(n, k, 2));
Comments