A156299 Primes where the first digit is greater than any other digit.

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

Author

Parthasarathy Nambi, Feb 07 2009

Keywords

• nonn
• base

Examples

			983 is a prime in which the first digit is greater than any other digit.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• Chris Caldwell, The first 1000 Primes

Crossrefs

A000040

Programs

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 *)