A155833 Primes in which smallest digit is final digit.

2, 3, 5, 7, 11, 31, 41, 43, 53, 61, 71, 73, 83, 97, 131, 151, 181, 191, 211, 241, 251, 271, 281, 311, 331, 353, 373, 383, 421, 431, 433, 443, 461, 463, 491, 521, 541, 563, 571, 593, 631, 641, 643, 653, 661, 673, 683, 691, 733, 743, 751, 761, 773, 787, 797, 811

Offset: 1

Author

Juri-Stepan Gerasimov, Jan 28 2009

Keywords

• nonn
• base

Comments

The final digit does not have to be the only smallest digit, so 211 is a term even though the second digit as well as the last digit equals 1. - Harvey P. Dale, Jul 21 2020

Crossrefs

Subsequence of A038618.

Programs

Maple

A010879 := proc(n) n mod 10 ; end: A054054 := proc(n) min(op(convert(n,base,10))) ; end: for i from 1 to 500 do p := ithprime(i) ; if A010879(p) = A054054(p) then printf("%d,",p) ; fi; od: # R. J. Mathar, Jan 31 2009

Mathematica

Select[Prime[Range[150]],Min[IntegerDigits[#]]==IntegerDigits[#][[-1]]&] (* Harvey P. Dale, Jul 21 2020 *)

PARI

is(n)=my(d=digits(n));d[#d]==vecsort(d)[1] && isprime(n) \\ Charles R Greathouse IV, Dec 29 2012

Extensions

Corrected by R. J. Mathar, Jan 31 2009