login
Positions of 0's in binary expansion of Pi.
0

%I #6 May 28 2022 03:59:52

%S 1,2,4,5,7,8,9,10,17,20,22,24,26,27,28,30,31,32,34,35,36,37,39,42,44,

%T 45,46,49,50,51,52,54,55,56,59,61,62,65,66,67,69,70,73,74,75,78,79,82,

%U 83,84,86,88,89,90,92,96,97,98,99,100,101,102,105,109,110

%N Positions of 0's in binary expansion of Pi.

%C Complement of A256108.

%F a(n) = A320300(n) - 2.

%e Pi in binary is 11.0010010000111111011010101000100010000101..., so this sequence starts with 1, 2, 4, 5, 7, 8, 9, 10, 17, 20, 22, ...

%t Flatten[Position[RealDigits[Pi, 2, 200][[1]], 0] - 2] (* after the program for A320300 from _Alonso del Arte_ *)

%o (PARI) default(realprecision, 100); v = select(x->(x==0), binary(Pi)[2], 1) \\ after the program for A320300 from _Michel Marcus_

%Y Cf. A004601, A256108, A320300, A320301.

%K nonn,base

%O 1,2

%A _Jianing Song_, May 27 2022