Home primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
|||
Line 876: | Line 876: | ||
HP(20) = 2_2_5 -> 3_3_5_5 -> 5_11_61 -> 11_4651 -> 3_3_12739 -> 17_194867 -> 19_41_22073 -> 709_273797 -> 3_97_137_17791 -> 11_3610337981 -> 7_3391_4786213 -> 3_3_3_3_7_23_31_1815403 -> 13_17_23_655857429041 -> 7_7_2688237874641409 -> 3_31_8308475676071413 |
HP(20) = 2_2_5 -> 3_3_5_5 -> 5_11_61 -> 11_4651 -> 3_3_12739 -> 17_194867 -> 19_41_22073 -> 709_273797 -> 3_97_137_17791 -> 11_3610337981 -> 7_3391_4786213 -> 3_3_3_3_7_23_31_1815403 -> 13_17_23_655857429041 -> 7_7_2688237874641409 -> 3_31_8308475676071413 |
||
HP(65) = 5_13 -> 3_3_3_19 -> 11_13_233 -> 11_101203 -> 3_3_23_53629 -> 3_3_1523_24247 -> 3_3_3_7_47_3732109 -> 11_18013_16843763 -> 151_740406071813 -> 3_13_13_54833_5458223 -> 3_3_97_179_373_7523_71411 -> 1571_1601_1350675311441 -> 3_3_13_33391_143947_279384649 -> 11_23_204069263_6417517893491 -> 7_11_1756639_83039633268945697 -> 29_29_5165653_13503983_12122544283 -> 228345060379_1282934064985326977 -> 3_3_3_2979253_3030445387_9367290955541 -> 1381_3211183211_75157763339900357651 |
HP(65) = 5_13 -> 3_3_3_19 -> 11_13_233 -> 11_101203 -> 3_3_23_53629 -> 3_3_1523_24247 -> 3_3_3_7_47_3732109 -> 11_18013_16843763 -> 151_740406071813 -> 3_13_13_54833_5458223 -> 3_3_97_179_373_7523_71411 -> 1571_1601_1350675311441 -> 3_3_13_33391_143947_279384649 -> 11_23_204069263_6417517893491 -> 7_11_1756639_83039633268945697 -> 29_29_5165653_13503983_12122544283 -> 228345060379_1282934064985326977 -> 3_3_3_2979253_3030445387_9367290955541 -> 1381_3211183211_75157763339900357651 |
||
</pre> |
|||
=={{header|Transd}}== |
|||
<syntaxhighlight lang="Scheme">#lang transd |
|||
MainModule: { |
|||
homePrime: (λ i BigLong() |
|||
(if (is-prime i) (lout "HP" i " = " i) continue) |
|||
(with n BigLong(i) ch Vector<BigLong>() st 1 |
|||
(append ch n) |
|||
(while true |
|||
(= n (join (prime-factors n) "")) |
|||
(append ch n) |
|||
(if (is-probable-prime n 15) |
|||
(for l in Range(in: ch 0 -1) do |
|||
(textout "HP" l "("(- (size ch) @idx 1) ") = ")) |
|||
(lout (back ch)) (ret) |
|||
else (+= st 1)) |
|||
) |
|||
) |
|||
), |
|||
_start: (λ |
|||
(for i in Range(2 21) do (homePrime BigLong(i))) |
|||
(homePrime BigLong(65)) |
|||
) |
|||
}</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
HP2 = 2 |
|||
HP3 = 3 |
|||
HP4(2) = HP22(1) = 211 |
|||
HP5 = 5 |
|||
HP6(1) = 23 |
|||
HP7 = 7 |
|||
HP8(13) = HP222(12) = HP2337(11) = HP31941(10) = HP33371313(9) = HP311123771(8) = HP7149317941(7) = HP22931219729(6) = HP112084656339(5) = HP3347911118189(4) = HP11613496501723(3) = HP97130517917327(2) = HP531832651281459(1) = 3331113965338635107 |
|||
HP9(2) = HP33(1) = 311 |
|||
HP10(4) = HP25(3) = HP55(2) = HP511(1) = 773 |
|||
HP11 = 11 |
|||
HP12(1) = 223 |
|||
HP13 = 13 |
|||
HP14(5) = HP27(4) = HP333(3) = HP3337(2) = HP4771(1) = 13367 |
|||
HP15(4) = HP35(3) = HP57(2) = HP319(1) = 1129 |
|||
HP16(4) = HP2222(3) = HP211101(2) = HP3116397(1) = 31636373 |
|||
HP17 = 17 |
|||
HP18(1) = 233 |
|||
HP19 = 19 |
|||
HP20(15) = HP225(14) = HP3355(13) = HP51161(12) = HP114651(11) = HP3312739(10) = HP17194867(9) = HP194122073(8) = HP709273797(7) = HP39713717791(6) = HP113610337981(5) = HP733914786213(4) = HP3333723311815403(3) = HP131723655857429041(2) = HP772688237874641409(1) = 3318308475676071413 |
|||
HP65(19) = HP513(18) = HP33319(17) = HP1113233(16) = HP11101203(15) = HP332353629(14) = HP33152324247(13) = HP3337473732109(12) = HP111801316843763(11) = HP151740406071813(10) = HP31313548335458223(9) = HP3397179373752371411(8) = HP157116011350675311441(7) = HP331333391143947279384649(6) = HP11232040692636417517893491(5) = HP711175663983039633268945697(4) = HP292951656531350398312122544283(3) = HP2283450603791282934064985326977(2) = HP333297925330304453879367290955541(1) = 1381321118321175157763339900357651 |
|||
</pre> |
</pre> |
||