Home primes: Difference between revisions
→{{header|Nim}}
Thundergnat (talk | contribs) m (Promote. multiple implementations, little controversy) |
|||
Line 372:
HP292951656531350398312122544283(3) = HP2283450603791282934064985326977(2) = HP333297925330304453879367290955541(1) = 1381321118321175157763339900357651 is prime.
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>ClearAll[HP, HPChain]
HP[n_] := FromDigits[Catenate[IntegerDigits /@ Sort[Catenate[ConstantArray @@@ FactorInteger[n]]]]]
HPChain[n_] := NestWhileList[HP, n, PrimeQ/*Not]
Row[Prepend["Home prime chain for " <> ToString[#] <> ": "]@Riffle[HPChain[#], ", "]] & /@ Range[2, 20] // Column
Row[Prepend["Home prime chain for 65: "]@Riffle[HPChain[65], ", "]]</lang>
{{out}}
<pre>Home prime chain for 2: 2
Home prime chain for 3: 3
Home prime chain for 4: 4, 22, 211
Home prime chain for 5: 5
Home prime chain for 6: 6, 23
Home prime chain for 7: 7
Home prime chain for 8: 8, 222, 2337, 31941, 33371313, 311123771, 7149317941, 22931219729, 112084656339, 3347911118189, 11613496501723, 97130517917327, 531832651281459, 3331113965338635107
Home prime chain for 9: 9, 33, 311
Home prime chain for 10: 10, 25, 55, 511, 773
Home prime chain for 11: 11
Home prime chain for 12: 12, 223
Home prime chain for 13: 13
Home prime chain for 14: 14, 27, 333, 3337, 4771, 13367
Home prime chain for 15: 15, 35, 57, 319, 1129
Home prime chain for 16: 16, 2222, 211101, 3116397, 31636373
Home prime chain for 17: 17
Home prime chain for 18: 18, 233
Home prime chain for 19: 19
Home prime chain for 20: 20, 225, 3355, 51161, 114651, 3312739, 17194867, 194122073, 709273797, 39713717791, 113610337981, 733914786213, 3333723311815403, 131723655857429041, 772688237874641409, 3318308475676071413
Home prime chain for 65: 65, 513, 33319, 1113233, 11101203, 332353629, 33152324247, 3337473732109, 111801316843763, 151740406071813, 31313548335458223, 3397179373752371411, 157116011350675311441, 331333391143947279384649, 11232040692636417517893491, 711175663983039633268945697, 292951656531350398312122544283, 2283450603791282934064985326977, 333297925330304453879367290955541, 1381321118321175157763339900357651</pre>
=={{header|Nim}}==
| |||