|
%I #7 Jan 07 2014 19:53:52
%S 8,16,34,44,64,65,80,106,116,128,138,140,174,178,184,193,196,209,258,
%T 259,260,263,264,266,272,280,288,290,314,316,325,326,327,328,330,338,
%U 344,385,391,402,449,514,520,521,528,544,566,570,574,578,587,590,597
%N In binary representation: n has the same number of 0's as the n-th prime has 1's.
%C A000120(A072581(n))=A023416(a(n))=A014499(n);
%C a(n)=A049084(A072581(n)).
%H Harvey P. Dale, <a href="/A072578/b072578.txt">Table of n, a(n) for n = 1..1000</a>
%e In binary representation 80='1010000' has five 0's and A000040(80)=409='110011001' has five 1's: therefore 80 is a term.
%t Select[Range[600],DigitCount[#,2,0]==DigitCount[Prime[#],2,1]&] (* _Harvey P. Dale_, Jan 07 2014 *)
%Y Cf. A072579, A071600, A072577.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 23 2002
|
