A144169 IntegerPart[PolyGamma[n,3]].

0, 0, 0, 0, 0, 0, 0, -2, 6, -21, 77, -308, 1326, -6159, 30691, -163262, 923364, -5532187, 34999420, -233141556, 1631008138, -11955337672, 91626679088, -732828332694, 6105747679463, -52908981009168, 476130261273006

Offset

0,8

Links

Table of n, a(n) for n=0..26.

Mathematica

lst={}; Do[AppendTo[lst, IntegerPart[PolyGamma[n, 3]]], {n, 4^3}]; lst
IntegerPart[PolyGamma[Range[30], 3]] (* Harvey P. Dale, May 13 2019 *)

Crossrefs

Sequence in context: A063023 A150188 A150189 * A355152 A363813 A124292

Adjacent sequences: A144166 A144167 A144168 * A144170 A144171 A144172

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Sep 12 2008

Status

approved