A104915 - OEIS

%I #4 Jun 06 2024 18:15:40

%S 7,37,67,109,113,193,197,223,317,331,347,397,449,491,569,571,587,673,

%T 743,757,769,883,919,991,1019,1021,1033,1091,1277,1291,1321,1531,1567,

%U 1583,1663,1709,1811,1901,1979,2069,2089,2111,2153,2267,2269,2311,2339

%N Primes p such that the string 987654321p is prime, or primes in A104914.

%t Select[Prime[Range[400]],PrimeQ[987654321*10^IntegerLength[#]+#]&] (* _Harvey P. Dale_, Jun 06 2024 *)

%Y Cf. A104914.

%K nonn,base

%O 1,1

%A _Zak Seidov_, Mar 29 2005