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 A070036 #5 Oct 15 2013 22:31:18
%S A070036 1,1,1,2,1,1,3,2,3,4,1,3,2,4,2,3,3,3,1,3,2,2,3,5,2,3,4,4,3,5,4,1,3,2,
%T A070036 2,3,4,2,3,3,4,6,2,3,4,5,5,4,4,3,4,5,5,1,3,2,2,3,4,2,3,3,4,2,3,3,5,7,
%U A070036 2,4,5,5,3,4,4,6,5,6,3,4,4,5,1,3,2,2,3,4,2,3,3,4,2,3,3,5,2,3,3,8,2,4,5,6,5
%N A070036 a(n)=A070034(n)-A070035(n).
%F A070036 a(n)=A070034(n)-Log[2, A068496(A070034(n))].
%t A070036 Do[s=Mod[n!, 2^n]; If[IntegerQ[Log[2, s]], Print[n-Log[2, s]]], {n, 1, 1000}]
%Y A070036 Cf. A000142, A000079, A068496, A070034, A070035.
%K A070036 nonn
%O A070036 1,4
%A A070036 _Labos Elemer_, Apr 17 2002