OFFSET
0,3
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..200
MAPLE
a := n -> add(add(abs(Stirling1(j - k, k)), k=0..j), j=0..n):
seq(a(n), n=0..29);
MATHEMATICA
a[n_] := Sum[Sum[Abs[StirlingS1[j - k, k]], {k, 0, j}], {j, 0, n}];
Array[a, 25, 0] (* Amiram Eldar, Nov 06 2018 *)
PROG
(PARI) a(n)={sum(j=0, n, sum(k=0, j, abs(stirling(j-k, k, 1))))} \\ Andrew Howroyd, Nov 06 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 06 2018
STATUS
approved