Honaker primes: Difference between revisions
added RPL
(Added Sidef) |
(added RPL) |
||
Line 1,452:
Ten thousandth: (286069, 4043749)</pre>
=={{header|RPL}}==
{{works with|HP|49}}
≪ →STR → digits
≪ 0
1 digits SIZE '''FOR''' j
digits j DUP SUB STR→ + '''NEXT'''
≫ ≫ '<span style="color:blue">DIGSUM</span>' STO
≪ 1 { } → max primepos result
≪ 2
1 max '''FOR''' j
'''DO''' NEXTPRIME
'''UNTIL''' 'primepos' INCR <span style="color:blue">DIGSUM</span> OVER <span style="color:blue">DIGSUM</span> == '''END'''
'result' j primepos 4 PICK →V3 STO+
'''NEXT''' result
≫ ≫ '<span style="color:blue">HONAKER</span>' STO
50 <span style="color:blue">HONAKER</span>
{{out}}
<pre>
1: {[1. 32. 131.] [2. 56. 263.] [3. 88. 457.] [4. 175. 1039.] [5. 176. 1049.] [6. 182. 1091.] [7. 212. 1301.] [8. 218. 1361.] [9. 227. 1433.] [10. 248. 1571.] [11. 293. 1913.] [12. 295. 1933.] [13. 323. 2141.] [14. 331. 2221.] [15. 338. 2273.] [16. 362. 2441.] [17. 377. 2591.] [18. 386. 2663.] [19. 394. 2707.] [20. 397. 2719.] [21. 398. 2729.] [22. 409. 2803.] [23. 439. 3067.] [24. 446. 3137.] [25. 457. 3229.] [26. 481. 3433.] [27. 499. 3559.] [28. 508. 3631.] [29. 563. 4091.] [30. 571. 4153.] [31. 595. 4357.] [32. 599. 4397.] [33. 635. 4703.] [34. 637. 4723.] [35. 655. 4903.] [36. 671. 5009.] [37. 728. 5507.] [38. 751. 5701.] [39. 752. 5711.] [40. 755. 5741.] [41. 761. 5801.] [42. 767. 5843.] [43. 779. 5927.] [44. 820. 6301.] [45. 821. 6311.] [46. 826. 6343.] [47. 827. 6353.] [48. 847. 6553.] [49. 848. 6563.] [50. 857. 6653.]}
</pre>
=={{header|Ruby}}==
<syntaxhighlight lang="ruby" line>require 'prime'
| |||