No replies to this topic

[Tritonio]

?➝A:
√(A)-2➝Y:
2➝B:
0➝C:
Lbl 0:
A÷B➝D:
Fix 0:
Rnd(D)➝X:
Norm 2:
X≠D⇒Goto 3:
C+1➝C
D➝A:
√(A)-2➝Y:
Goto 0:
Lbl 3:
C=0⇒Goto 1:
B◢
C◢
A=1⇒Goto 2:
Lbl 1:
B>Y⇒A-2➝B:
B=2⇒1➝B:
B+2➝B:
0➝C:
Goto 0:
Lbl 2

It prints prime factor then exponent until there are no more prime factors.