%I A058634
%S A058634 1,1,4,2,2,2,9,2,1,4,2,1,4,2,1,4,2,1,3,2,1,3,2,1,4,2,1,4,2,2,2,12,1,1,
%T A058634 4,2,1,3,2,2,2,8,3,2,6,1,16,3,2,7,12,1,4,2,2,3,3,3,2,6,1,2,2,2,3,2,6,1,
%U A058634 4,3,2,9,2,2,3,2,4,2,1,3,2,1,3,2,2,3,2,7,1,4,2,70,4,2,27,2,2,2,3,2
%V A058634 1,1,-4,-2,2,-2,9,-2,1,-4,-2,1,-4,-2,1,-4,-2,1,-3,-2,1,-3,-2,1,-4,-2,1,
               -4,-2,2,-2,12,
%W A058634 1,1,-4,-2,1,-3,-2,2,-2,8,-3,-2,-6,1,16,-3,-2,7,-12,1,-4,-2,2,-3,-3,-3,
               -2,-6,1,2,-2,2,
%X A058634 -3,-2,-6,1,4,-3,-2,9,-2,2,-3,-2,-4,-2,1,-3,-2,1,-3,-2,2,-3,-2,-7,1,4,
               -2,70,4,-2,27
%N A058634 a(n) = floor(b(n)), where b(n) = 1/cos(b(n-1)), b(0) = 1.
%e A058634 a(3) = -2 because: b(0) = 1, b(1) = 1/cos(1) = 1.850815..., b(2) = 1/
               cos(1.850815) = -3.618291..., b(3) = 1/cos(-3.618291) = -1.125468... 
               and a(3) = floor(b(3)) = -2
%o A058634 (PARI) \p1000 b=1:for(n=1,100,print1(floor(b)","):b=1/cos(b))
%Y A058634 Cf. A000319.
%Y A058634 Sequence in context: A080133 A054575 A129107 this_sequence A037919 A049849 
               A112349
%Y A058634 Adjacent sequences: A058631 A058632 A058633 this_sequence A058635 A058636 
               A058637
%K A058634 sign
%O A058634 0,3
%A A058634 Avi Peretz (njk(AT)netvision.net.il), Dec 26 2000
%E A058634 More terms from Ralf Stephan (ralf(AT)ark.in-berlin.de), Mar 23 2003