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

Author

Reinhard Zumkeller, Feb 02 2006

Keywords

• nonn

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

Programs

Haskell

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

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