login
A144170
a(n) = IntegerPart(PolyGamma(n, 4)).
1
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
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
KEYWORD
sign
AUTHOR
STATUS
approved