NAME

Math::NumSeq::MathImagePowerPart -- largest square etc divisor

SYNOPSIS

use Math::NumSeq::MathImagePowerPart;
my $seq = Math::NumSeq::MathImagePowerPart->new (power => 2);
my ($i, $value) = $seq->next;

DESCRIPTION

...

FUNCTIONS

$seq = Math::NumSeq::MathImagePowerPart->new ()

Create and return a new sequence object.

$value = $seq->ith($i)

Return the largest perfect square dividing $i.

$bool = $seq->pred($value)

Return true if $value occurs in the sequence, ie. is a perfect square.

SEE ALSO

Math::NumSeq, Math::NumSeq::MobiusFunction