%I #11 Apr 24 2022 02:32:10

%S 3,7,11,13,19,23,29,31,37,43,47,53,59,61,71,79,89,101,103,107,109,127,

%T 131,137,139,149,151,157,163,167,173,179,181,191,199,223,227,229,233,

%U 239,241,251,263,271,311,313,317,331,337,347,349,359,367,373,379,383

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

%H Amiram Eldar, <a href="/A090456/b090456.txt">Table of n, a(n) for n = 1..10000</a>

%F A090455(a(n)) < 0.

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

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

%K nonn,base

%O 1,1

%A _Reinhard Zumkeller_, Dec 01 2003