OFFSET
1,1
COMMENTS
The upper asymptotic density is 1/9 and the lower asymptotic density is 1/81, due to the Prime Number Theorem.
EXAMPLE
2(2=2), 3(3=3), 5(5=5), 7(7=7), 31(3=3>1), 41(4=4>1), 43(4=4>3), etc.
MAPLE
a := proc (n) local nn, nnn: nn := convert(ithprime(n), base, 10): nnn := seq(nn[j], j = 1 .. nops(nn)): if nn[nops(nn)] = max(nnn) then ithprime(n) else end if end proc: seq(a(n), n = 1 .. 200); # Emeric Deutsch, Mar 02 2009
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Feb 24 2009
EXTENSIONS
11, 313 etc. inserted by Emeric Deutsch and R. J. Mathar, Feb 26 2009
STATUS
approved