OFFSET
1,1
COMMENTS
Digits are in descending order beginning with 1 and after 0 comes 9.
EXAMPLE
2 is a term since 43 is a prime.
MATHEMATICA
fQ[n_] := PrimeQ@ FromDigits@ Mod[5-Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 10000}]; lst
CROSSREFS
KEYWORD
base,hard,nonn
AUTHOR
Robert G. Wilson v, Jul 05 2006
STATUS
approved