login
A108218
Numbers of the form (11^i)*(12^j), with i, j >= 0.
1
1, 11, 12, 121, 132, 144, 1331, 1452, 1584, 1728, 14641, 15972, 17424, 19008, 20736, 161051, 175692, 191664, 209088, 228096, 248832, 1771561, 1932612, 2108304, 2299968, 2509056, 2737152, 2985984, 19487171, 21258732, 23191344, 25299648
OFFSET
1,2
LINKS
PROG
(Haskell)
import Data.Set (singleton, deleteFindMin, insert)
a108218 n = a108218_list !! (n-1)
a108218_list = f $ singleton (1, 0, 0) where
f s = y : f (insert (11 * y, i + 1, j) $ insert (12 * y, i, j + 1) s')
where ((y, i, j), s') = deleteFindMin s
-- Reinhard Zumkeller, May 15 2015
KEYWORD
nonn
AUTHOR
Douglas Winston (douglas.winston(AT)srupc.com), Jun 28 2005
STATUS
approved