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