%I A014499
%S A014499 1,2,2,3,3,3,2,3,4,4,5,3,3,4,5,4,5,5,3,4,3,5,4,4,3,4,5,5,5,4,7,3,3,
%T A014499 4,4,5,5,4,5,5,5,5,7,3,4,5,5,7,5,5,5,7,5,7,2,4,4,5,4,4,5,4,5,6,5,6,
%U A014499 5,4,6,6,4,6,7,6,7,8,4,5,4,5,5,5,7,5,7,7,4,5,6,7,6,8,7,7,7,8,8,3,4
%N A014499 Number of 1's in binary representation of n-th prime.
%C A014499 a(n)=A000120(A000040(n)).
%H A014499 T. D. Noe, <a href="b014499.txt">Table of n, a(n) for n=1..10000</a>
%t A014499 f[n_]:=Plus@@IntegerDigits[n,2]; lst={};Do[p=Prime[n];AppendTo[lst,f[p]],
               {n,6!}];lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Oct 
               10 2009]
%o A014499 (PARI) A014499(n)=norml2(binary(prime(n))) [From M. F. Hasler (mhasler(AT)univ-ag.fr), 
               Nov 20 2009]
%Y A014499 Cf. A035103, A035100, A004676, A090455.
%Y A014499 Cf. A027697, A027699
%Y A014499 Sequence in context: A165001 A059253 A108133 this_sequence A055778 A106482 
               A122462
%Y A014499 Adjacent sequences: A014496 A014497 A014498 this_sequence A014500 A014501 
               A014502
%K A014499 nonn,base,easy,new
%O A014499 1,2
%A A014499 Ingemar Assarsjo (ingemar(AT)binomen.se)