OFFSET
1,2
MATHEMATICA
Select[Range[0, 200], PrimeQ@FromDigits[Join[{1}, IntegerDigits@#, {9}]]&] (* Giorgos Kalogeropoulos, Jul 28 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved