%I #11 Jul 13 2013 12:01:47
%S 2,6,14,30,38,62,78,86,126,158,174,182,198,230,254,318,350,366,374,
%T 398,422,462,470,510,518,534,638,702,734,750,758,798,846,870,902,926,
%U 942,950,1022,1038,1046,1070,1094,1142,1190,1206,1278,1382,1406,1446,1470,1502
%N If a, b in sequence, so is a*b+2.
%H Reinhard Zumkeller, <a href="/A009299/b009299.txt">Table of n, a(n) for n = 1..1000</a>
%o (Haskell)
%o import Data.Set (singleton, deleteFindMin, insert)
%o a009299 n = a009299_list !! (n-1)
%o a009299_list = f [2] (singleton 2) where
%o f xs s = m : f xs' (foldl (flip insert) s' (map ((+ 2) . (* m)) xs'))
%o where xs' = m : xs
%o (m,s') = deleteFindMin s
%o -- _Reinhard Zumkeller_, Aug 15 2011
%Y Cf. A009293, A192476.
%K nonn
%O 1,1
%A _David W. Wilson_