WolframAlpha computational knowledge AI
Table[(((ceiling[(x!)^0.5]+k)^2-x!)^0.5-ceiling[((ceiling[(x!)^0.5]+k)^2-x!)^0.5]), {x,1,120}] for k=0