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