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