NAME

Math::NumSeq::MathImageSquarefulPart -- largest square divisor

SYNOPSIS

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

DESCRIPTION

...

FUNCTIONS

$seq = Math::NumSeq::MathImageSquarefulPart->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