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

1, 7, 13, 26, 37, 41, 42, 45, 49, 50, 58, 59, 62, 69, 70, 74, 78, 79, 87, 103, 105, 107, 110, 114, 118, 121, 134, 139, 141, 142, 145, 147, 158, 161, 162, 164, 165, 168, 175, 185, 189, 198, 202, 203, 213, 214, 223, 227, 232, 234, 243, 267, 275, 282, 289, 292

Offset

1,2

Comments

A023416(A072582(n))=A000120(a(n))=A035103(n);

a(n)=A049084(A072582(n)).

Links

Table of n, a(n) for n=1..56.

Example

In binary representation 70='1000110' has three 1's and A000040(70)=349='101011101' has three 1's: therefore 70 is a term.

Mathematica

Select[Range[300], DigitCount[#, 2, 1]==DigitCount[Prime[#], 2, 0]&] (* Harvey P. Dale, May 02 2012 *)

Crossrefs

Cf. A072578, A071600, A072577.

Sequence in context: A213663 A060455 A205541 * A337433 A067870 A147258

Adjacent sequences: A072576 A072577 A072578 * A072580 A072581 A072582

Keyword

nonn

Author

Reinhard Zumkeller, Jun 23 2002

Status

approved