|
%I #14 Apr 01 2019 16:42:30
%S 0,1,3,4,5,8,9,10,12,13,14,15,17,24,25,27,29,30,31,37,38,39,40,42,43,
%T 44,45,46,47,48,49,51,55,56,58,61,62,64,66,68,79,80,86,90,91,94,95,96,
%U 99,100,103,109,110,111,115,120,122,123,129,130,131,133,137,138,139,141
%N Successive positions of odd digits in decimal expansion of Pi (position 0 means 3 before comma or decimal point)
%e Pi=3,141592653589793...
%e 0 in this sequence because 3 is odd.
%e 1 in this sequence because 1 is odd.
%e 2 is not in this sequence because second digit after comma 4 is not 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]],_?OddQ]-1] (* _Harvey P. Dale_, Apr 19 2011 *)
%Y Cf. A000796, A174000.
%K nonn,base
%O 0,3
%A _Artur Jasinski_, Mar 05 2010
%E Edited by _Charles R Greathouse IV_, Aug 02 2010
%E Definition clarified by _Harvey P. Dale_, Apr 01 2019
|
