Math::NumSeq::MathImagePowerPart -- largest square etc divisor
use Math::NumSeq::MathImagePowerPart; my $seq = Math::NumSeq::MathImagePowerPart->new (power => 2); my ($i, $value) = $seq->next;
...
$seq = Math::NumSeq::MathImagePowerPart->new ()
Create and return a new sequence object.
$value = $seq->ith($i)
Return the largest perfect square dividing $i.
$i
$bool = $seq->pred($value)
Return true if $value occurs in the sequence, ie. is a perfect square.
$value
Math::NumSeq, Math::NumSeq::MobiusFunction
To install Math::NumSeq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Math::NumSeq
CPAN shell
perl -MCPAN -e shell install Math::NumSeq
For more information on module installation, please visit the detailed CPAN module installation guide.