A296520 Multidigit primes in which the largest digit appears only once.
13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 211, 223, 227, 229, 239, 241, 251, 257, 263, 269, 271
Offset: 1
Examples
In 13 the last digit is the largest, in 131 the middle digit and in 41 the first digit.
Crossrefs
Programs
-
Mathematica
Reap[Do[p=Prime[k];id=IntegerDigits[p];If[Count[id,Max[id]]==1,Sow[p]],{k,6,100}]][[2,1]] (* Second program: *) Select[Prime@ Range[5, 60], Last@ Select[DigitCount[#], # > 0 &] == 1 &] (* Michael De Vlieger, Dec 14 2017 *)