|
%I #9 Sep 12 2017 13:47:43
%S 2,6,7,11,16,18,19,20,21,22,23,26,28,32,33,34,35,36,41,50,52,53,54,57,
%T 59,60,63,65,67,69,70,71,72,73,74,75,76,77,78,81,82,83,84,85,87,88,89,
%U 92,93,97,98,101,102,104,105,106,107,108,112,113,114,116,117,118,119
%N Successive positions of even digits after comma in decimal expansion of Pi
%e Pi=3,141592653589793...
%e 2 is in this sequence because second digit after comma 4 is even.
%t s = First[RealDigits[N[Pi, 1000]]]; aa = {}; Do[If[OddQ[s[[n]]], AppendTo[aa, n - 1]], {n, 1, Length[s]}]; aa (*Artur Jasinski*)
%t Flatten[Position[RealDigits[Pi,10,150][[1]],_?EvenQ]]-1 (* _Harvey P. Dale_, Sep 12 2017 *)
%Y Cf. A000796, A173999.
%K nonn,base
%O 1,1
%A _Artur Jasinski_, Mar 05 2010
%E Edited by _Charles R Greathouse IV_, Aug 02 2010
|
