A072578 In binary representation: n has the same number of 0's as the n-th prime has 1's.

8, 16, 34, 44, 64, 65, 80, 106, 116, 128, 138, 140, 174, 178, 184, 193, 196, 209, 258, 259, 260, 263, 264, 266, 272, 280, 288, 290, 314, 316, 325, 326, 327, 328, 330, 338, 344, 385, 391, 402, 449, 514, 520, 521, 528, 544, 566, 570, 574, 578, 587, 590, 597

Offset

1,1

Comments

A000120(A072581(n))=A023416(a(n))=A014499(n);

a(n)=A049084(A072581(n)).

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

In binary representation 80='1010000' has five 0's and A000040(80)=409='110011001' has five 1's: therefore 80 is a term.

Mathematica

Select[Range[600], DigitCount[#, 2, 0]==DigitCount[Prime[#], 2, 1]&] (* Harvey P. Dale, Jan 07 2014 *)

Crossrefs

Cf. A072579, A071600, A072577.

Sequence in context: A043111 A043891 A331930 * A271994 A058516 A366511

Adjacent sequences: A072575 A072576 A072577 * A072579 A072580 A072581

Keyword

nonn

Author

Reinhard Zumkeller, Jun 23 2002

Status

approved