(EL-5030) Prime Factors

[C.Ret]

We may spare one element in matrix/vector A[..]:
   

Code:

M:f(X)=#1└►└►X/F꞊>Q˽F>Q ꞊Y꞊>[-X◣]Q≠INT Q ꞊N꞊>[F,Q꞊>X◄┐]F+10*FRAC A[I]꞊>F˽A[I]꞊>I◄┐
1:DIM A[11]˽2.1꞊>A[1]˽3.2꞊>A[2]˽4.2꞊>A[3]˽5.4꞊>A[4]˽6.2꞊>A[5]˽7.4꞊>A[6]˽8.2꞊>A[7]˽9.4꞊>A[8]˽10.6꞊>A[9]˽11.2꞊>A[10]˽4.6꞊>A[11]˽1꞊>I˽2꞊>F