A155833 - OEIS

%I #11 Jul 21 2020 15:16:30

%S 2,3,5,7,11,31,41,43,53,61,71,73,83,97,131,151,181,191,211,241,251,

%T 271,281,311,331,353,373,383,421,431,433,443,461,463,491,521,541,563,

%U 571,593,631,641,643,653,661,673,683,691,733,743,751,761,773,787,797,811

%N Primes in which smallest digit is final digit.

%C 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

%p 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

%t Select[Prime[Range[150]],Min[IntegerDigits[#]]==IntegerDigits[#][[-1]]&] (* _Harvey P. Dale_, Jul 21 2020 *)

%o (PARI) is(n)=my(d=digits(n));d[#d]==vecsort(d)[1] && isprime(n) \\ _Charles R Greathouse IV_, Dec 29 2012

%Y Subsequence of A038618.

%K nonn,base

%O 1,1

%A _Juri-Stepan Gerasimov_, Jan 28 2009

%E Corrected by _R. J. Mathar_, Jan 31 2009