0,3

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

A009949 := proc(a, n) local i, b, c; b := a; c := [ floor(b) ]; for i from 1 to n-1 do b := b-c[ i ]/i!; c := [ op(c), floor(b*(i+1)!) ]; od; c; end:

Sequence in context: A274826 A129862 A137593 * A070785 A214985 A105537

Adjacent sequences: A009946 A009947 A009948 * A009950 A009951 A009952

nonn

N. J. A. Sloane, Bill Gosper

approved