OFFSET
1,2
COMMENTS
LINKS
PROG
(Haskell)
import Data.List (delete)
a143691 n = a143691_list !! (n-1)
a143691_list = f 1 [1..] where
f m xs = g xs where
g (z:zs) = if m + m' /= 1 then g zs else z : f m' (delete z xs)
where m' = a001222 z `mod` 2
-- Reinhard Zumkeller, Aug 07 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 29 2008
STATUS
approved