RosettaCodeData/Task/Babbage-problem/APL/babbage-problem-2.apl

5 lines
133 B
APL
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
⍝ s = 520 + 2 ... + 2 ⍣ <= power
⍝ s × s = n × 1000000 + 269696 | <= remainder
2+{269696=1000000|×}520