Giuga numbers: Difference between revisions

</pre>

=={{header|RPL}}==

{{works with|HP|49}}

≪ DUP → n

≪ FACTORS 1 SF

1 OVER SIZE '''FOR''' j

DUP j GET

n OVER / 1 -

'''IF''' SWAP MOD '''THEN''' 1 CF '''END'''

2 '''STEP''' DROP

1 FS?

≫ ≫ '<span style="color:blue">GIUGA?</span>' STO

≪ { } 4

'''WHILE''' OVER SIZE 4 < '''REPEAT'''

'''IF''' DUP <span style="color:blue">GIUGA?</span> '''THEN''' LOOK SWAP OVER + SWAP '''END'''

2 +

'''END''' DROP

≫ '<span style="color:blue">TASK</span>' STO

{{out}}

<pre>

1: {30 858 1722 66198}