17/01/06 09:28:08.44 0R4aMgJq.net
>>57 Squeak/Pharo Smalltalk
| ans |
ans := OrderedCollection new.
(2 to: 2017 sqrt) asDigitsToPower: 4 do: [:digits |
((digits first: 2) raisedTo: (digits last: 2)) sum = 2017
ifTrue: [ans add: ('{1}^{3}+{2}^{4}' format: digits)]
].
^ans asStringWithCr