OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
Chris Caldwell, "The first 1000 Primes"
EXAMPLE
439 is a prime in which the first digit is greater than the second digit.
MAPLE
a := proc (n) local nn: nn := convert(ithprime(n), base, 10): if nn[nops(nn)-1] < nn[nops(nn)] then ithprime(n) else end if end proc: seq(a(n), n = 5 .. 145); # Emeric Deutsch, Feb 28 2009
MATHEMATICA
Select[Prime[Range[5, 200]], IntegerDigits[#][[1]]>IntegerDigits[#][[2]]&] (* Harvey P. Dale, Jul 25 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Feb 07 2009
EXTENSIONS
More terms from Emeric Deutsch, Feb 28 2009
STATUS
approved