1Math::NumSeq::RepdigitAUnsye(r3)Contributed Perl DocumenMtaatthi:o:nNumSeq::RepdigitAny(3)
2
3
4
6 Math::NumSeq::RepdigitAny -- numbers which are a repdigit in any radix
7
9 use Math::NumSeq::RepdigitAny;
10 my $seq = Math::NumSeq::RepdigitAny->new;
11 my ($i, $value) = $seq->next;
12
14 The numbers 0, 7, 13, 15, 21, 26, 31, etc which are a repdigit of 3 or
15 more digits in any radix. For example 7 is 111 base 2, 26 is 222 base
16 3, 31 is 11111 base 2, etc. Effectively this is the union of the
17 Repdigits sequence for all radices.
18
20 See "FUNCTIONS" in Math::NumSeq for behaviour common to all sequence
21 classes.
22
23 "$seq = Math::NumSeq::RepdigitAny->new ()"
24 Create and return a new sequence object.
25
26 "$bool = $seq->pred($value)"
27 Return true if $value is a repdigit of 3 or more digits in some
28 radix.
29
31 Math::NumSeq, Math::NumSeq::Repdigits
32
34 <http://user42.tuxfamily.org/math-numseq/index.html>
35
37 Copyright 2010, 2011, 2012, 2013, 2014, 2016, 2019, 2020 Kevin Ryde
38
39 Math-NumSeq is free software; you can redistribute it and/or modify it
40 under the terms of the GNU General Public License as published by the
41 Free Software Foundation; either version 3, or (at your option) any
42 later version.
43
44 Math-NumSeq is distributed in the hope that it will be useful, but
45 WITHOUT ANY WARRANTY; without even the implied warranty of
46 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
47 General Public License for more details.
48
49 You should have received a copy of the GNU General Public License along
50 with Math-NumSeq. If not, see <http://www.gnu.org/licenses/>.
51
52
53
54perl v5.38.0 2023-07-20 Math::NumSeq::RepdigitAny(3)