%I A127964
%S A127964 0,1,2,4,5,7,8,10,14,20,29,38,49,62,82,94,98,155,172,349,853
%N A127964 Number of 0's in A127962(n).
%t A127964 b = {}; Do[c = 1 + Sum[2^(2n - 1), {n, 1, x}]; If[PrimeQ[c], AppendTo[b, 
               c]], {x, 0, 1000}]; a = {}; Do[AppendTo[a, FromDigits[IntegerDigits[b[[x]], 
               2]]], {x, 1, Length[b]}]; d = {}; Do[AppendTo[d, DigitCount[a[[x]], 
               10, 0]], {x, 1, Length[a]}]; d (*Artur Jasinski*)
%Y A127964 Cf. A127962, A127961, A000979, A000978, A124400, A126614, A127955, A127956, 
               A127957, A127958, A127936.
%Y A127964 Sequence in context: A018519 A050054 A018371 this_sequence A085370 A006693 
               A158850
%Y A127964 Adjacent sequences: A127961 A127962 A127963 this_sequence A127965 A127966 
               A127967
%K A127964 nonn
%O A127964 1,3
%A A127964 Artur Jasinski (grafix(AT)csl.pl), Feb 09 2007