|
|
A249854
|
|
Numbers <= 10^6 with valid Luhn mod 10 check digit, sorted lexicographically.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|