This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A115945 #14 Jul 13 2013 12:03:23 %S A115945 4,5,10,11,12,13,14,15,16,17,18,19,20,21,22,23,28,29,34,35,36,37,38, %T A115945 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61, %U A115945 62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85 %N A115945 Numbers that cannot be written as a sum of distinct factorials. %C A115945 Complement of A059590; A115944(a(n)) = 0. %H A115945 Reinhard Zumkeller, <a href="/A115945/b115945.txt">Table of n, a(n) for n = 1..10000</a> %H A115945 <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a> %t A115945 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 *) %o A115945 (Haskell) %o A115945 import Data.List (elemIndices) %o A115945 a115945 n = a115945_list !! (n-1) %o A115945 a115945_list = elemIndices 0 $ map a115944 [0..] %o A115945 -- _Reinhard Zumkeller_, Dec 04 2011 %K A115945 nonn %O A115945 1,1 %A A115945 _Reinhard Zumkeller_, Feb 02 2006