RosettaCodeData/Task/Babbage-problem/Mathematica/babbage-problem.math

2 lines
65 B
Plaintext

Solve[Mod[x^2, 10^6] == 269696 && 0 <= x <= 99736, x, Integers]