1,2

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

(Haskell)

import Data.List (unfoldr, isInfixOf)

a123345 n = a123345_list !! (n-1)

a123345_list = filter

(\x -> all (`isInfixOf` b x) $ map b $ a027750_row x) [1..] where

b = unfoldr (\x -> if x == 0 then Nothing else Just $ swap $ divMod x 2)

-- Reinhard Zumkeller, Oct 27 2012

Complement of A093642. Different from A093641.

Cf. A000040 (subsequence), A027750, A218388.

Sequence in context: A328369 A207674 A162722 * A093641 A209638 A191844

Adjacent sequences: A123342 A123343 A123344 * A123346 A123347 A123348

nonn,base

Reinhard Zumkeller, Oct 12 2006

approved