A084794 a(n) = floor( 1/frac(n*Pi/4) ).

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

Links

Table of n, a(n) for n=1..100.

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

Adjacent sequences: A084791 A084792 A084793 * A084795 A084796 A084797

Keyword

nonn

Author

Paul D. Hanna, Jun 03 2003

Status

approved