OFFSET
1,1
COMMENTS
Numbers n such that smallest digit of prime(n) = odd nonprime and largest digit of n = prime.
MATHEMATICA
Select[Range[300], MemberQ[{2, 3, 5, 7}, Max[IntegerDigits[#]]]&&Min[ IntegerDigits[ Prime[ #]]] ==1&] (* Harvey P. Dale, Jul 12 2020 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 16 2009
EXTENSIONS
Entries checked by R. J. Mathar, May 05 2010
STATUS
approved