%I A127963
%S A127963 2,3,4,6,7,9,10,12,16,22,31,40,51,64,84,96,100,157,174,351,855
%N A127963 Number of 1's in A127962(n).
%t A127963 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, 1]], {x, 1, Length[a]}]; d (*Artur Jasinski*)
%Y A127963 Cf. A127962, A127961, A000979, A000978, A124400, A126614, A127955, A127956, 
               A127957, A127958, A127936.
%Y A127963 Sequence in context: A111333 A047701 A164528 this_sequence A031403 A088572 
               A071689
%Y A127963 Adjacent sequences: A127960 A127961 A127962 this_sequence A127964 A127965 
               A127966
%K A127963 nonn
%O A127963 1,1
%A A127963 Artur Jasinski (grafix(AT)csl.pl), Feb 09 2007