OFFSET
1,3
MATHEMATICA
Table[Floor[1/FractionalPart[n*Pi/4]], {n, 100}] (* Harvey P. Dale, Aug 30 2013 *)
PROG
(PARI) x=(Pi/4); for(n=1, 60, t=floor( 1/frac(n*x) ); print1(t", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jun 03 2003
STATUS
approved