Select Code to Download

perl -E "map{ $sigma += $ARGV[0]**$_ }0..$ARGV[1]-1; say 'true' if $AR
+GV[0]**$ARGV[1] == 1+( $sigma * ($ARGV[0]-1))"