A115945 Numbers that cannot be written as a sum of distinct factorials.

4, 5, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 28, 29, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85

Offset

1,1

Comments

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

Links

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

Index entries for sequences related to factorial numbers

Mathematica

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 *)

Prog

(Haskell)
import Data.List (elemIndices)
a115945 n = a115945_list !! (n-1)
a115945_list = elemIndices 0 $ map a115944 [0..]
-- Reinhard Zumkeller, Dec 04 2011

Crossrefs

Sequence in context: A092961 A327614 A177711 * A092027 A084750 A323488

Adjacent sequences: A115942 A115943 A115944 * A115946 A115947 A115948

Keyword

nonn

Author

Reinhard Zumkeller, Feb 02 2006

Status

approved