A249854 Numbers <= 10^6 with valid Luhn mod 10 check digit, sorted lexicographically.

0, 100008, 100016, 100024, 100032, 100040, 100057, 100065, 100073, 100081, 10009, 100099, 100107, 100115, 100123, 100131, 100149, 100156, 100164, 10017, 100172, 100180, 100198, 100206, 100214, 100222, 100230, 100248, 10025, 100255, 100263, 100271, 100289

Offset: 1

Author

Reinhard Zumkeller, Nov 08 2014

Keywords

• nonn
• base
• fini
• full

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..100000
• Wikipedia, Luhn algorithm
• Index entries for sequences related to decimal expansion of n

Crossrefs

Cf. A093018, A249855.

Programs

Haskell

import Data.List (sortBy); import Data.Function (on)
a249854 n = a249854_list !! (n-1)
a249854_list = sortBy (compare `on` show) $
                      takeWhile (<= 10^6) a093018_list