|
%I #14 Jul 18 2020 11:41:25
%S 11,13,17,19,2,23,29,3,31,37,41,43,47,5,53,59,61,67,7,71,73,79,83,89,
%T 97
%N Primes less than 100 sorted lexicographically in decimal representation.
%C The sequence is finite with 25 terms, A006880(2) = 25.
%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(5) = 2; a(8) = 3; a(14) = 5; a(19) = 7;
%e a(1) = A000040(1) = 2, first term;
%e a(25) = A000040(25) = 97, last term.
%o (Haskell)
%o import Data.List (sortBy)
%o import Data.Function (on)
%o a210757 n = a210757_list !! (n-1)
%o a210757_list = sortBy (compare `on` show) $
%o takeWhile (<= 10^4) a000040_list
%o -- _Reinhard Zumkeller_, Apr 01 2012, Mar 25 2012
%Y Cf. A000040, A210758, A210759, A210760, A210761.
%K nonn,base,fini,full
%O 1,1
%A _Reinhard Zumkeller_, Mar 25 2012
|
