login
A070036
a(n)=A070034(n)-A070035(n).
1
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,4
FORMULA
a(n)=A070034(n)-Log[2, A068496(A070034(n))].
MATHEMATICA
Do[s=Mod[n!, 2^n]; If[IntegerQ[Log[2, s]], Print[n-Log[2, s]]], {n, 1, 1000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 17 2002
STATUS
approved