Search: id:A138345
Results 1-1 of 1 results found.

%I A138345
%S A138345 1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%T A138345 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,1,0,1,0,1,1,1,1,
%U A138345 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
%V A138345 -1,1,-1,-1,1,-1,0,-1,-1,1,-1,1,1,-1,1,1,-1,1,-1,1,0,-1,1,-1,-1,1,1,-1,
               1,-1,1,1,-1,-1,
%W A138345 1,-1,1,1,1,-1,1,-1,1,-1,1,1,-1,1,-1,1,1,1,-1,-1,1,-1,-1,0,1,1,1,0,-1,
               0,1,0,1,-1,1,1,
%X A138345 -1,-1,1,1,-1,1,-1,-1,1,-1,1,1,-1,1,0,1,-1,-1,1,0,-1,-1,1,-1,1,-1,1,-1,
               1,-1,1,-1,1,1,1
%N A138345 a(n) = -1 if (n+1)-st decimal digit of 1/Pi is smaller than n-th digit 
               of 1/Pi, 0 if they are equal, 1 if larger.
%t A138345 b = RealDigits[N[1/Pi, 1000]]; b = First[b]; a = {}; Do[k = b[[n + 1]] 
               - b[[n]]; If[k < 0, AppendTo[a, -1], If[k == 0, AppendTo[a, 0], AppendTo[a, 
               1]]], {n, 1, 999}]; a (*Artur Jasinski*)
%Y A138345 Cf. A138344, A138346, A138347.
%Y A138345 Sequence in context: A089509 A157972 A124897 this_sequence A014590 A015171 
               A014562
%Y A138345 Adjacent sequences: A138342 A138343 A138344 this_sequence A138346 A138347 
               A138348
%K A138345 sign,base
%O A138345 1,1
%A A138345 Artur Jasinski (grafix(AT)csl.pl), Mar 16 2008

Search completed in 0.001 seconds