|
%I #19 Jul 18 2020 11:41:15
%S 101,103,107,109,11,113,127,13,131,137,139,149,151,157,163,167,17,173,
%T 179,181,19,191,193,197,199,2,211,223,227,229,23,233,239,241,251,257,
%U 263,269,271,277,281,283,29,293,3,307,31,311,313,317,331,337,347,349
%N Primes less than 1000 sorted lexicographically in decimal representation.
%C The sequence is finite with 168 terms, A006880(3) = 168.
%H Reinhard Zumkeller, <a href="/A210758/b210758.txt">Table of n, a(n) for n = 1..168</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(26) = 2; a(45) = 3; a(84) = 5; a(119) = 7;
%e a(1) = A000040(26) = 101, first term;
%e a(168) = A000040(168) = 997, last term.
%o (Haskell)
%o import Data.List (sortBy)
%o import Data.Function (on)
%o a210758 n = a210758_list !! (n-1)
%o a210758_list = sortBy (compare `on` show) $
%o takeWhile (<= 1000) a000040_list
%o -- _Reinhard Zumkeller_, Apr 01 2012, Mar 25 2012
%Y Cf. A000040, A210757, A210759, A210760, A210761.
%K nonn,base,fini,full
%O 1,1
%A _Reinhard Zumkeller_, Mar 25 2012
|
