OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
Chris Caldwell, The first 1000 Primes
EXAMPLE
983 is a prime in which the first digit is greater than any other digit.
MATHEMATICA
fdgQ[n_]:=Module[{idn=IntegerDigits[n], f}, f=First[idn]; Max[idn]==f&&And@@ Table[f>i, {i, Rest[idn]}]]; Select[Prime[Range[5, 200]], fdgQ] (* Harvey P. Dale, Sep 18 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Feb 07 2009
STATUS
approved