Erdös-Selfridge categorization of primes: Difference between revisions

m
→‎{{header|Raku}}: slightly more efficient
(Added Java solution)
m (→‎{{header|Raku}}: slightly more efficient)
Line 548:
my @factors = prime-factors $n + 1;
my $category = max %cat{ @factors };
unless %cat{ @factors.tail[*-1] } {
$category max= ( 1 + max %cat{ prime-factors 1 + @factors.tail[*-1] } );
%cat{ @factors.tail[*-1] } = $category;
}
$category
10,333

edits