A166007 - OEIS

%I #5 Dec 03 2014 12:44:00

%S 3,3,3,2,3,3,4,4,4,5,5,5,3,4,5,5,4,6,5,6,6,7,5,4,7,7,6,7,6,7,4,4,9,5,

%T 6,6,6,7,7,8,6,5,5,5,9,8,6,7,8,9,4,5,6,8,7,6,6,9,4,7,7,8,7,7,6,7,7,7,

%U 7,7,9,8,3,6,6,7,7,7,7,6,7,8,6,6,5,8

%N Number of ones in the binary representation of the middle member q of the prime triple (p,q,r) with p<q<r=p+6.

%H Harvey P. Dale, <a href="/A166007/b166007.txt">Table of n, a(n) for n = 1..1000</a>

%e For n = 3, (p, q, r) = (11, 13, 17), q = 13

%e Decimal 13 = Binary 1101

%e a(3) = Number of ones in 1101 = 3

%t DigitCount[#,2,1]&/@Transpose[Select[Partition[Prime[Range[1000]],3,1], Last[#]-First[#]==6&]][[2]] (* _Harvey P. Dale_, Dec 03 2014 *)

%Y Cf. A098414, A014499

%K base,nonn

%O 1,1

%A Steven Lubars (lubars(AT)gmail.com), Oct 03 2009

%E More terms from _Harvey P. Dale_, Dec 03 2014