A090456 Primes prime(k) having more binary 1's than k.

3, 7, 11, 13, 19, 23, 29, 31, 37, 43, 47, 53, 59, 61, 71, 79, 89, 101, 103, 107, 109, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 199, 223, 227, 229, 233, 239, 241, 251, 263, 271, 311, 313, 317, 331, 337, 347, 349, 359, 367, 373, 379, 383

Offset: 1

Author

Reinhard Zumkeller, Dec 01 2003

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000120, A004676, A007088, A014499, A072439, A090432, A090455, A090457.

Programs

Mathematica

Select[Prime[Range[100]], Differences[DigitCount[{PrimePi[#], #}, 2, 1]][[1]] > 0 &] (* Amiram Eldar, Apr 23 2022 *)

Formula

A090455(a(n)) < 0.