A210757 Primes less than 100 sorted lexicographically in decimal representation.
11, 13, 17, 19, 2, 23, 29, 3, 31, 37, 41, 43, 47, 5, 53, 59, 61, 67, 7, 71, 73, 79, 83, 89, 97
Offset: 1
Examples
a(5) = 2; a(8) = 3; a(14) = 5; a(19) = 7; a(1) = A000040(1) = 2, first term; a(25) = A000040(25) = 97, last term.
Links
- Eric Weisstein's World of Mathematics, Lexicographic Order
- Wikipedia, Lexicographical order
Programs
-
Haskell
import Data.List (sortBy) import Data.Function (on) a210757 n = a210757_list !! (n-1) a210757_list = sortBy (compare `on` show) $ takeWhile (<= 10^4) a000040_list -- Reinhard Zumkeller, Apr 01 2012, Mar 25 2012
Comments