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

The largest integer which squared (etc) is a divisor of i.

1, 1, 1, 2, 1, 1, 1, 2, 3, ...

For example at i=27 the power part is 3 since 3^2=9 is the largest which, when squared, is a divisor of 27.

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, which is simply any integer $value >= 1.

SEE ALSO

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