%I
%S 23,53,73,223,233,283,337,379,521,571,599,643,811,821,857,881,991,
%T 1093,1103,1163,1229,1231,1399,1439,1481,1511,1583,1613,1663,1723,
%U 1747,1753,1823,1831,1999,2017,2281,2293,2351,2467,2543,2621,2659,2719,2741,2837
%N Primes p such that the string p0123456789 is prime, or primes in A104801.
%t Select[Prime[Range[500]],PrimeQ[#*10^10+123456789]&] (* _Harvey P. Dale_, Dec 15 2014 *)
%Y Cf. A104799, A104801.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 29 2005
