plot 1/Abs[1728*KleinInvariantJ[2*i+x]] from x=0 to 1