OFFSET
1,4
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