Perfect totient numbers: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Perl 6}}: Add a Perl 6 example |
Thundergnat (talk | contribs) m →{{header|Perl 6}}: Fix off-by-one error |
||
Line 74: | Line 74: | ||
<lang perl6>my \𝜑 = Nil, |(1..*).hyper.map: -> $t { +(^$t).grep: * gcd $t == 1 }; |
<lang perl6>my \𝜑 = Nil, |(1..*).hyper.map: -> $t { +(^$t).grep: * gcd $t == 1 }; |
||
my \𝜑𝜑 = Nil, |( |
my \𝜑𝜑 = Nil, |(2..*).grep: -> $p { $p == sum 𝜑[$p], { 𝜑[$_] } … 1 }; |
||
put "The first twenty Perfect totient numbers:\n", 𝜑𝜑[1..20];</lang> |
put "The first twenty Perfect totient numbers:\n", 𝜑𝜑[1..20];</lang> |
||
{{out}} |
{{out}} |
||
<pre>The first twenty Perfect totient numbers: |
<pre>The first twenty Perfect totient numbers: |
||
3 9 15 27 39 81 111 183 243 255 327 363 471 729 2187 2199 3063 4359 4375 5571</pre> |
|||
=={{header|Python}}== |
=={{header|Python}}== |