# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a090456 Showing 1-1 of 1 %I A090456 #11 Apr 24 2022 02:32:10 %S A090456 3,7,11,13,19,23,29,31,37,43,47,53,59,61,71,79,89,101,103,107,109,127, %T A090456 131,137,139,149,151,157,163,167,173,179,181,191,199,223,227,229,233, %U A090456 239,241,251,263,271,311,313,317,331,337,347,349,359,367,373,379,383 %N A090456 Primes prime(k) having more binary 1's than k. %H A090456 Amiram Eldar, Table of n, a(n) for n = 1..10000 %F A090456 A090455(a(n)) < 0. %t A090456 Select[Prime[Range[100]], Differences[DigitCount[{PrimePi[#], #}, 2, 1]][[1]] > 0 &] (* _Amiram Eldar_, Apr 23 2022 *) %Y A090456 Cf. A000120, A004676, A007088, A014499, A072439, A090432, A090455, A090457. %K A090456 nonn,base %O A090456 1,1 %A A090456 _Reinhard Zumkeller_, Dec 01 2003 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE