A122428 Numbers m such that in decimal representation the lexicographically greatest divisor of m equals the greatest prime factor of m.

1, 2, 3, 5, 7, 10, 11, 13, 14, 15, 17, 19, 20, 21, 23, 25, 28, 29, 31, 35, 37, 41, 42, 43, 47, 49, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 105, 106, 107, 109, 111, 113, 118, 122, 123, 125, 127, 129, 131, 134, 137, 139, 141, 142, 146, 147, 149, 151, 157, 158

Offset

1,2

Comments

A122425(a(n)) = A006530(a(n));

A008578 is a subsequence.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Prog

(Haskell)
a122428 n = a122428_list !! (n-1)
a122428_list = [x | x <- [1..], a122425 x == a006530 x]
-- Reinhard Zumkeller, Feb 05 2015

Crossrefs

Cf. A122425, A006530, A122427.

Sequence in context: A046758 A121232 A298746 * A087246 A090421 A109608

Adjacent sequences: A122425 A122426 A122427 * A122429 A122430 A122431

Keyword

nonn,base

Author

Reinhard Zumkeller, Sep 04 2006

Status

approved