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

[Thomas Ritschel]

Of course, the first "ISPRIME?" isn't really necessary since all the primes are generated by using the "NEXTPRIME" command.

So here is a shorter and therefore faster version:

Code:

%%HP: T(3)A(R)F(.);
\<< \-> n
  \<< { } 0 2
    WHILE OVER n <
    REPEAT DUP 2 * 1 +
      IF ISPRIME?
      THEN SWAP 1 + SWAP ROT OVER + UNROT
      END
      NEXTPRIME
    END DROP2
  \>>
\>>