A070036 a(n)=A070034(n)-A070035(n).
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, 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, 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
Offset: 1
Keywords
Programs
-
Mathematica
Do[s=Mod[n!, 2^n]; If[IntegerQ[Log[2, s]], Print[n-Log[2, s]]], {n, 1, 1000}]