%I #8 Jul 21 2015 00:30:42
%S 25,32,40,43,48,56,58,64,96,104,112,120,128,134,140,145,152,160,176,
%T 185,192,208,212,224,235,240,244,248,252,256,264,272,280,286,288,292,
%U 302,304,308,320,326,332,348,356,360,384,392,394,400
%N Smallest number of 1's in binary representations of primes between 2^n and 2^(n+1) is 4.
%C Where 4 appears in A091935.
%C This sequence differs from multiples of 8 (A008590) very little but significantly; even fewer are odd.
%C Essentially the same as A081504. - _R. J. Mathar_, Sep 08 2008
%t Compute the second line of the Mathematica code for A091936, then Do[ If[ Count[ IntegerDigits[ f[n], 2], 1] == 4, Print[n]], {n, 1, 400}] (* _Robert G. Wilson v_, Feb 19 2004 *)
%Y Cf. A091935, A091936.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Feb 19 2004
|