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,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

A000040

Sequence in context: A109645 A156298 A099180 * A342216 A103490 A105320

Adjacent sequences: A156296 A156297 A156298 * A156300 A156301 A156302

Keyword

nonn,base

Author

Parthasarathy Nambi, Feb 07 2009

Status

approved