OFFSET
1,1
COMMENTS
PROG
(Haskell)
import Data.List ((\\))
a249407 n = a249407_list !! (n-1)
a249407_list = f [2..] where
f ws@(u:v:_) = u : v : f (ws \\ [u, v, u * v])
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 31 2014
STATUS
approved