|
%I #19 Jul 18 2020 11:41:07
%S 100003,100019,100043,100049,100057,100069,10007,10009,100103,100109,
%T 100129,100151,100153,100169,100183,100189,100193,100207,100213,
%U 100237,100267,100271,100279,100291,100297,100313,100333,100343,100357,100361,100363,10037
%N Primes less than 1000000 sorted lexicographically in decimal representation.
%C The sequence is finite with 78498 terms, A006880(6) = 78498.
%H Reinhard Zumkeller, <a href="/A210761/b210761.txt">Table of n, a(n) for n = 1..78498</a> all terms
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LexicographicOrder.html">Lexicographic Order</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Lexicographical_order">Lexicographical order</a>
%e a(9586) = 2; a(18728) = 3; a(36435) = 5; a(53508) = 7;
%e a(1) = A000040(9593) = 100003, first term;
%e a(78498) = A000040(78498) = 999983, last term.
%o (Haskell)
%o Data.List (sortBy)
%o import Data.Function (on)
%o a210761 n = a210761_list !! (n-1)
%o a210761_list = sortBy (compare `on` show) $
%o takeWhile (<= 10^6) a000040_list
%o -- _Reinhard Zumkeller_, Apr 01 2012, Mar 25 2012
%Y Cf. A000040, A210757, A210758, A210759, A210760.
%K nonn,base,fini,full
%O 1,1
%A _Reinhard Zumkeller_, Mar 25 2012
|
