OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{r = Reverse@ Range@ 9}, Select[Range[1200], PrimeQ[FromDigits[r ~Join~ IntegerDigits@ #]] &]] (* Michael De Vlieger, Jan 20 2018 *)
Select[Range[1200], PrimeQ[987654321*10^IntegerLength[#]+#]&] (* Harvey P. Dale, Jul 31 2018 *)
PROG
(Magma) [ n: n in [1..1750] | IsPrime(Seqint(Intseq(n) cat [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