thank you. this gets me closer
Plot[Mod[x!, 2^x], {x, 20, 35}, PlotPoints -> 10, WorkingPrecisio> 40]
but I'd like to rescale the y -axis so I can see all the numbers (or possibly a logarithmic scale?)
and is it possible to print out the values when they are <100? ( so I can see the value of x as well as the result when it is close 0)