Primes whose first and last number is 3: Difference between revisions

Content added Content deleted

Inline

@@ Line 950: / Line 950: @@
 Uses a candidate numbers generator to speed up execution.
 {{works with|HP|49}}
+ ≪ 10 +
- ≪ 2 OVER SIZE 1 - SUB →STR "9876543210" → prev digits
+    '''IF''' DUP MANT IP 3 ≠ '''THEN''' XPON 1 + ALOG 3 * 3 + '''END'''
-   ≪ 1 SF ""
-      prev SIZE 1 '''FOR''' j
-         digits DUP
-         prev j DUP SUB POS 1 FS? -
-         '''IF''' DUP NOT '''THEN''' DROP digits SIZE '''ELSE''' 1 CF '''END'''
-         DUP SUB SWAP +
-      -1 '''STEP'''
-      '''IF''' 1 FS? '''THEN''' digits DUP SIZE DUP SUB SWAP + '''END'''
-       "3" SWAP OVER + + STR→
  ≫ ≫ '<span style="color:blue">NXT3N3</span>' STO
- ≪ { 3 } 303
+ ≪ { } 3
     '''WHILE''' DUP 4000 < '''REPEAT'''
       '''IF''' DUP ISPRIME? '''THEN''' SWAP OVER + SWAP '''END'''