%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
|