OFFSET
1,1
MATHEMATICA
Select[Prime[Range[400]], PrimeQ[987654321*10^IntegerLength[#]+#]&] (* Harvey P. Dale, Jun 06 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 29 2005
STATUS
approved