NAME

Math::NumSeq::SquareFreeKernel -- divide out any square factor

SYNOPSIS

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

DESCRIPTION

The sequence of i with any square factor divided out,

    1, 2, 3, 1, 5, 6, 7, 2, 1, 10, 11, 3, ...

For example at i=12 the value is 3 because the square 4 is divided out.

FUNCTIONS

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

Create and return a new sequence object.

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

Return $i with any square factor divided out.

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

Return true if $value occurs in the sequence, ie. it has no square factor.

SEE ALSO

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