Primes whose first and last number is 3: Difference between revisions
Primes whose first and last number is 3 (view source)
Revision as of 08:06, 1 September 2023
, 9 months ago→{{header|RPL}}: improved generator
(add RPL) |
(→{{header|RPL}}: improved generator) |
||
Line 950:
Uses a candidate numbers generator to speed up execution.
{{works with|HP|49}}
≪ 10 +
▲ '''IF''' 1 FS? '''THEN''' digits DUP SIZE DUP SUB SWAP + '''END'''
≫ ≫ '<span style="color:blue">NXT3N3</span>' STO
≪ {
'''WHILE''' DUP 4000 < '''REPEAT'''
'''IF''' DUP ISPRIME? '''THEN''' SWAP OVER + SWAP '''END'''
|