OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[If[n == 1, Floor[Log[Pi/2]], Floor[n!*Log[Pi/2]] - n*Floor[(n - 1)!*Log[Pi/2]]], {n, 1, 50}] (* G. C. Greubel, Mar 21 2018 *)
PROG
(PARI) for(n=1, 30, print1(if(n==1, floor(log(Pi/2)), floor(n!*log(Pi/2)) - n*floor((n-1)!*log(Pi/2))), ", ")) \\ G. C. Greubel, Mar 21 2018
(Magma) R:= RealField(); [Floor(Log(Pi(R)/2))] cat [Floor(Factorial(n)*Log(Pi(R)/2)) - n*Floor(Factorial((n-1))* Log(Pi(R)/2)) : n in [2..30]]; // G. C. Greubel, Mar 21 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 10 2002
STATUS
approved