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,2

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

Prog

(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

Crossrefs

Cf. A093018, A249855.

Sequence in context: A017645 A210761 A165297 * A237233 A182040 A120216

Adjacent sequences: A249851 A249852 A249853 * A249855 A249856 A249857

Keyword

nonn,base,fini,full

Author

Reinhard Zumkeller, Nov 08 2014

Status

approved