OFFSET
1,3
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
1,(1,2),(2,3),4,(3,5),6,(4,7),8,9,10,(5,11),12, ... .
PROG
(Haskell)
a165634 n = a165634_list !! (fromInteger n - 1)
a165634_list = concatMap (\x ->
if a010051 x == 1 then [a049084 x, x] else [x]) [1..]
-- Reinhard Zumkeller, Apr 17 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 23 2009
STATUS
approved