Find number property and write RPL program (HP-49G,G+, HP 50g)

[Gerson W. Barbosa]

%%HP: T(3)A(R)F(,);
\<< 1 { }
DO SWAP NEXTPRIME DUP DUP2 + 1 + ISPRIME? { UNROT + } { DROP SWAP } IFTE PICK3 OVER SIZE
UNTIL ==
END UNROT DROP2
\>>


%%HP: T(3)A(R)F(,);
\<< 1 { }
DO SWAP NEXTPRIME DUP DUP2 + 1 + ISPRIME? { UNROT + } { DROP SWAP } IFTE PICK3 PICK3
UNTIL \<=
END UNROT DROP2
\>>

%%HP: T(3)A(R)F(,);
\<< 2 * -1 -
\>>

PREVPRIME as the first instruction should be better and still less than 100-byte long.