A144168 IntegerPart[PolyGamma[n,2]].

0, 0, 0, 0, 2, -6, 20, -80, 360, -1793, 9822, -58779, 381393, -2666630, 19984218, -159791481, 1357763223, -12217090921, 116044807396, -1160331221321, 12182660845677, -134003283550602, 1540991901127780, -18491536121716991

Offset

0,5

Links

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

Mathematica

lst={}; Do[AppendTo[lst, IntegerPart[PolyGamma[n, 2]]], {n, 4^3}]; lst
IntegerPart[PolyGamma[Range[0, 30], 2]] (* Harvey P. Dale, Sep 19 2023 *)

Crossrefs

Sequence in context: A354737 A357502 A187009 * A177482 A300011 A242154

Adjacent sequences: A144165 A144166 A144167 * A144169 A144170 A144171

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Sep 12 2008

Status

approved