OFFSET
1,1
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
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 *)
PROG
(PARI) is(n)=my(d=digits(n)); d[#d]==vecsort(d)[1] && isprime(n) \\ Charles R Greathouse IV, Dec 29 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 28 2009
EXTENSIONS
Corrected by R. J. Mathar, Jan 31 2009
STATUS
approved