|
%I #17 Jul 16 2022 07:10:16
%S 555557,1555553,2555551,3555551,3555557,4555559,5055551,5055559,
%T 5355551,5505551,5535559,5550553,5550557,5554553,5555057,5555059,
%U 5555357,5555507,5555509,5555527,5555567,5555591,5555653,5556557,5556559,5557553
%N Primes with exactly five 5's.
%H Daniel Starodubtsev, <a href="/A178554/b178554.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[PrimePi[55555],1000000]],Count[IntegerDigits[#],5]==5&] (* _Harvey P. Dale_, Dec 20 2010 *)
%o (PARI) isok(p) = isprime(p) && (#select(x->(x==5), digits(p)) == 5); \\ _Michel Marcus_, Mar 15 2020
%Y Cf. A038618, A178550, A178551, A178552, A178553, A178555, A178556, A178557, A178558.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, May 29 2010
%E Missing a(14) = 5554553 inserted by _Daniel Starodubtsev_, Mar 15 2020
|
