RPL mini-challenge - Triangle of Primes (HP-49G/G+,50g)

[John Keith]

My simplistic RPL solution. 83 bytes, checksum # EBAAh. Optimized for speed rather than size. An input of 9 takes 1.19 seconds on my HP 50. An input of 99 takes 397 seconds, or 6.98 seconds on EMU48. The HP Prime could solve this almost instantly as the Prime has the 'ithprime' function.

Code:


*Spoiler alert*
















\<< I\->R \-> n
  \<< 2 2. n 2. *
    FOR k DUP 1. k
      START NEXTPRIME
      NEXT 2.
    STEP n 1. + \->LIST
  \>>
\>>