$s=$r+=1+print$s+1,$/while 102-map{$s=-$s-($'*($r-$')/($_*2-1)<<2)for//..1202}1..$r