OFFSET
1,2
COMMENTS
See A191203.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
1 -> 2,3 -> 5,7,10 ->
MATHEMATICA
g = 11; Union[Flatten[NestList[{1 + 2 #, 1 + #^2} &, 1, g]]]
(* A191211; use g>10 to get all of first 60 terms *)
PROG
(Haskell)
import Data.Set (singleton, deleteFindMin, insert)
a191211 n = a191211_list !! (n-1)
a191211_list = f $ singleton 1 where
f s = m : f (insert (2 * m + 1) $ insert (m ^ 2 + 1) s')
where (m, s') = deleteFindMin s
-- Reinhard Zumkeller, Apr 18 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 29 2011
STATUS
approved