
MATHEMATICA

fQ[n_] := PrimeQ@ FromDigits@ Mod[8+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 5000}]; lst
Flatten[Position[Table[FromDigits[PadRight[{}, n, {9, 0, 1, 2, 3, 4, 5, 6, 7, 8}]], {n, 100}], _?PrimeQ]] (* Harvey P. Dale, Sep 06 2015 *)
