login
A156299
Primes where the first digit is greater than any other digit.
2
31, 41, 43, 53, 61, 71, 73, 83, 97, 211, 311, 401, 421, 431, 433, 503, 521, 523, 541, 601, 613, 631, 641, 643, 653, 701, 733, 743, 751, 761, 811, 821, 823, 827, 853, 857, 863, 877, 907, 911, 937, 941, 947, 953, 967, 971, 977, 983
OFFSET
1,1
LINKS
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