|
%I #5 May 15 2015 16:52:36
%S 1,11,12,121,132,144,1331,1452,1584,1728,14641,15972,17424,19008,
%T 20736,161051,175692,191664,209088,228096,248832,1771561,1932612,
%U 2108304,2299968,2509056,2737152,2985984,19487171,21258732,23191344,25299648
%N Numbers of the form (11^i)*(12^j), with i, j >= 0.
%H Reinhard Zumkeller, <a href="/A108218/b108218.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.Set (singleton, deleteFindMin, insert)
%o a108218 n = a108218_list !! (n-1)
%o a108218_list = f $ singleton (1,0,0) where
%o f s = y : f (insert (11 * y, i + 1, j) $ insert (12 * y, i, j + 1) s')
%o where ((y, i, j), s') = deleteFindMin s
%o -- _Reinhard Zumkeller_, May 15 2015
%Y Cf. A003596, A003597, A107988, A003598, A108201, A108698, A064476, A003599, A108238, A107788, A108687, A108779, A108090, A108771.
%K nonn
%O 1,2
%A Douglas Winston (douglas.winston(AT)srupc.com), Jun 28 2005
|
