++ed by:
ZMUGHAL EGOR

2 PAUSE users

Kevin Ryde

NAME

Math::NumSeq::RepdigitAny -- numbers which are a repdigit in any radix

SYNOPSIS

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

DESCRIPTION

The numbers 0, 7, 13, 15, 21, 26, 31, etc which are a repdigit of 3 or more digits in any radix. For example 7 is 111 base 2, 26 is 222 base 3, 31 is 11111 base 2, etc. Effectively this is the union of the Repdigits sequence for all radices.

FUNCTIONS

See "FUNCTIONS" in Math::NumSeq for behaviour common to all sequence classes.

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

Create and return a new sequence object.

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

Return true if $value is a repdigit of 3 or more digits in some radix.

SEE ALSO

Math::NumSeq, Math::NumSeq::Repdigits

HOME PAGE

http://user42.tuxfamily.org/math-numseq/index.html

LICENSE

Copyright 2010, 2011, 2012, 2013, 2014 Kevin Ryde

Math-NumSeq is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version.

Math-NumSeq is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with Math-NumSeq. If not, see <http://www.gnu.org/licenses/>.