OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
279936 is there because it is 6^7.
PROG
(Haskell)
import Data.Set (singleton, deleteFindMin, insert)
a122494 n = a122494_list !! (n-1)
a122494_list = f (singleton (4, 2)) 27 [3..] where
f s uu us@(u:us'@(u':_))
| vv > uu = uu : f (insert (uu * u, u) s) (u' ^ u') us'
| vv < uu = vv : f (insert (vv * v, v) s') uu us
| otherwise = vv : f (insert (vv * v, v) s') (u' ^ u') us'
where ((vv, v), s') = deleteFindMin s
-- Reinhard Zumkeller, May 01 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Stoeber (pstoeber(AT)uni-potsdam.de), Sep 16 2006
STATUS
approved