OFFSET
3,2
COMMENTS
Sequence gives number of loop repetitions in reversal step.
The asymptotic value for large n is 0.20975...*n! = (e + 1/e - 8/3)/2 * n!. See also comment for A079884.
REFERENCES
Knuth's The Art of Computer Programming, Vol. 4, chapter 7.2.1.2.
See also under A079884.
LINKS
FORMULA
a(3) = 0, a(n) = n * a(n - 1) + (n - 1)*floor((n - 1)/2) for n >= 4.
a(n) = floor(c*n! - (n - 1)/2) for n > 4, where c = lim n -> infinity a(n)/n! = 0.209747301481910445... - Benoit Cloitre, Jan 19 2003
MATHEMATICA
a[3] = 0; a[n_] := n*a[n - 1] + (n - 1)*Floor[(n - 1)/2]; Table[a[n], {n, 3, 21}]
RecurrenceTable[{a[3]==0, a[n]==n*a[n-1]+(n-1)Floor[(n-1)/2]}, a, {n, 20}] (* Harvey P. Dale, May 31 2019 *)
PROG
(Fortran) Program available at Pfoertner link.
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Jan 16 2003
EXTENSIONS
More terms from Benoit Cloitre and Robert G. Wilson v, Jan 19 2003
STATUS
approved