login
A122427
Numbers m such that in decimal representation m equals the lexicographically greatest divisor of m.
4
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 17, 19, 22, 23, 26, 29, 31, 33, 34, 37, 38, 39, 41, 43, 44, 46, 47, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 80, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99
OFFSET
1,2
COMMENTS
A122425(a(n)) = a(n); complement of A122426;
A008578 is a subsequence.
LINKS
PROG
(Haskell)
a122427 n = a122426_list !! (n-1)
a122427_list = [x | x <- [1..], a122425 x == x]
-- Reinhard Zumkeller, Feb 05 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Sep 04 2006
STATUS
approved