A144170 a(n) = IntegerPart(PolyGamma(n, 4)).

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, -7, 24, -84, 313, -1246, 5272, -23638, 111946, -558395, 2926014, -16068765, 92284135, -553173063, 3454682540, -22441702499, 151407512979, -1059439166206, 7678540213657, -57574709672867

Offset

0,11

Links

Robert Israel, Table of n, a(n) for n = 0..575

Maple

[seq](trunc(Psi(n, 4)), n=0..30); # Robert Israel, May 28 2024

Mathematica

lst={}; Do[AppendTo[lst, IntegerPart[PolyGamma[n, 4]]], {n, 5^3}]; lst

Crossrefs

Cf. A144167, A144168, A144169.

Sequence in context: A088854 A000777 A369266 * A369296 A297345 A052986

Adjacent sequences: A144167 A144168 A144169 * A144171 A144172 A144173

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Sep 12 2008

Status

approved