Super-Poulet numbers: Difference between revisions
m
→{{header|Raku}}: off-by-one error
Thundergnat (talk | contribs) (New draft task and Raku entry) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: off-by-one error) |
||
Line 23:
my @poulet = lazy (2..*).hyper(:2000batch).grep: { !.is-prime && (1 == expmod 2, $_ - 1, $_) }
my @super-poulet = @poulet.grep: { all .&divisors.map: { (exp($_, 2) - 2) %% $_ } }
say "First 20 Super-Poulet numbers:\n" ~ @super-poulet[^20].gist;
Line 30:
say "\nIndex and value of first Super-Poulet greater than {$threshold.&cardinal}:";
my $index = @super-poulet.first: * > $threshold, :k;
say "{(1+$index).&ordinal-digit} Super-Poulet number == " ~ @super-poulet[$index].,</lang>
{{out}}
<pre>First 20 Super-Poulet numbers:
Line 36:
Index and value of first Super-Poulet greater than one million:
|