1,1

Complement of A059590; A115944(a(n)) = 0.

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

Index entries for sequences related to factorial numbers

A059590 = Table[ Reverse[id = IntegerDigits[n, 2]].Range[ Length[id]]!, {n, 0, 20}]; Complement[ Range[ Last[A059590]], A059590] (* Jean-François Alcover, Jun 19 2012 *)

(Haskell)

import Data.List (elemIndices)

a115945 n = a115945_list !! (n-1)

a115945_list = elemIndices 0 $ map a115944 [0..]

-- Reinhard Zumkeller, Dec 04 2011

Sequence in context: A092961 A327614 A177711 * A084750 A092027 A323488

Adjacent sequences: A115942 A115943 A115944 * A115946 A115947 A115948

nonn

Reinhard Zumkeller, Feb 02 2006

approved