OFFSET
1,1
MATHEMATICA
seq[cons_, len_] := Module[{s = {}, n = 0, c = cons, m}, While[n < len, n++; m = Floor[c*(n*n!*(n + 1)!)]; AppendTo[s, m]; c -= m/(n*n!*(n + 1)!)]; s]; seq[Pi, 50] (* Amiram Eldar, Mar 11 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected and more terms from Sean A. Irvine, Jun 14 2018
STATUS
approved