login
A084794
a(n) = floor( 1/frac(n*Pi/4) ).
0
1, 1, 2, 7, 1, 1, 2, 3, 14, 1, 1, 2, 4, 1, 1, 1, 2, 7, 1, 1, 2, 3, 15, 1, 1, 2, 4, 1, 1, 1, 2, 7, 1, 1, 2, 3, 16, 1, 1, 2, 4, 1, 1, 1, 2, 7, 1, 1, 2, 3, 18, 1, 1, 2, 5, 1, 1, 1, 2, 8, 1, 1, 2, 3, 19, 1, 1, 2, 5, 1, 1, 1, 2, 8, 1, 1, 2, 3, 21, 1, 1, 2, 5, 1, 1, 1, 3, 8, 1, 1, 2, 3, 23, 1, 1, 2, 5, 1, 1, 1
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
Sequence in context: A011047 A347589 A345930 * A116691 A225592 A258715
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jun 03 2003
STATUS
approved