1Math::NumSeq::Beastly(3U)ser Contributed Perl DocumentatiMoanth::NumSeq::Beastly(3)
2
3
4
6 Math::NumSeq::Beastly -- numbers containing digits "666"
7
9 use Math::NumSeq::Beastly;
10 my $seq = Math::NumSeq::Beastly->new;
11 my ($i, $value) = $seq->next;
12
14 This sequence is the beastly numbers which are those with "666"
15 somewhere in their digits. The default is decimal, or a radix can be
16 given.
17
18 666, 1666, 2666, 3666, 4666, 5666,
19 6660, 6661, 6662, ..., 6669,
20 7666, 8666, 9666,
21 etc
22
24 See "FUNCTIONS" in Math::NumSeq for behaviour common to all sequence
25 classes.
26
27 "$seq = Math::NumSeq::Beastly->new ()"
28 "$seq = Math::NumSeq::Beastly->new (radix => $r)"
29 Create and return a new sequence object.
30
31 An optional "radix" parameter selects a base other than decimal.
32 If "radix" is 6 or less then there's no "6" digits at all and the
33 sequence has no values.
34
35 "$bool = $seq->pred ($value)"
36 Return true if $value has "666" in its digits, in the requested
37 "radix".
38
40 Math::NumSeq, Math::NumSeq::Repdigits
41
43 <http://user42.tuxfamily.org/math-numseq/index.html>
44
46 Copyright 2010, 2011, 2012, 2013, 2014, 2016, 2017, 2019, 2020 Kevin
47 Ryde
48
49 Math-NumSeq is free software; you can redistribute it and/or modify it
50 under the terms of the GNU General Public License as published by the
51 Free Software Foundation; either version 3, or (at your option) any
52 later version.
53
54 Math-NumSeq is distributed in the hope that it will be useful, but
55 WITHOUT ANY WARRANTY; without even the implied warranty of
56 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
57 General Public License for more details.
58
59 You should have received a copy of the GNU General Public License along
60 with Math-NumSeq. If not, see <http://www.gnu.org/licenses/>.
61
62
63
64perl v5.34.1 2022-06-06 Math::NumSeq::Beastly(3)