A084794 - OEIS

%I #6 Aug 30 2013 11:59:30

%S 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,

%T 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,

%U 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

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

%t Table[Floor[1/FractionalPart[n*Pi/4]],{n,100}] (* _Harvey P. Dale_, Aug 30 2013 *)

%o (PARI) x=(Pi/4); for(n=1,60,t=floor( 1/frac(n*x) ); print1(t","))

%K nonn

%O 1,3

%A _Paul D. Hanna_, Jun 03 2003