|
|
A155833
|
|
Primes in which smallest digit is final digit.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
LINKS
|
|
|
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
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|