|
%I #15 Nov 18 2018 10:06:27
%S 3,4,6,7,9,10,11,12,19,22,24,26,28,29,30,32,33,34,36,37,38,39,41,44,
%T 46,47,48,51,52,53,54,56,57,58,61,63,64,67,68,69,71,72,75,76,77,80,81,
%U 84,85,86,88,90,91,92,94,98,99,100,101,102,103,104,107,111,112,113,114,115,119,120,123,125,126,127,129,130,132,134,135,137
%N Positions of 0's in binary expansion of Pi/4.
%C Numbers not in A004711.
%t Flatten[Position[RealDigits[Pi/4, 2, 200][[1]], 0]] (* _Alonso del Arte_, Oct 11 2018, after _Harvey P. Dale_ *)
%o (PARI) default(realprecision, 100); v = select(x->(x==0), binary(Pi/4)[2], 1) \\ _Michel Marcus_, Oct 12 2018
%Y Cf. A004601, A004711, A320301, A320302.
%K nonn,base
%O 1,1
%A _Jack Zhang_, Oct 10 2018
|
