|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|