OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[2000], PrimeQ[9876543210*10^IntegerLength[#]+#]&] (* Harvey P. Dale, Jun 22 2024 *)
PROG
(Magma) [ n: n in [1..1750] | IsPrime(Seqint(Intseq(n) cat [0, 1, 2, 3, 4, 5, 6, 7, 8, 9])) ]; // Vincenzo Librandi, Feb 02 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 29 2005
STATUS
approved