OFFSET
0,3
COMMENTS
LINKS
PROG
(Haskell)
import Data.List (delete)
a180076 n = a180076_list !! n
a180076_list :: [Integer]
a180076_list = 0 : f 0 [1..] where
f x zs = y : f y (delete y zs) where
y = if null ys then 3 * x + 1 else head ys
ys = [y | y <- takeWhile (< x) zs, binInfix y x]
binInfix u v = ib v where
ib w = w `mod` m == u || w > u && ib (w `div` 2)
m = a062383 u
-- Reinhard Zumkeller, Mar 13 2014, Feb 19 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Aug 14 2010
STATUS
approved