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,1

Links

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

Formula

A090455(a(n)) < 0.

Mathematica

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

Crossrefs

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

Sequence in context: A257057 A310197 A360077 * A070303 A256863 A136087

Adjacent sequences: A090453 A090454 A090455 * A090457 A090458 A090459

Keyword

nonn,base

Author

Reinhard Zumkeller, Dec 01 2003

Status

approved