Math::NumSeq::PrimeIndexOrder -- order of primeness by primes at prime indexes
use Math::NumSeq::PrimeIndexOrder; my $seq = Math::NumSeq::PrimeIndexOrder->new; my ($i, $value) = $seq->next;
This is the order of primeness by Neil Fernandez, counting levels of prime at prime index iterations,
http://www.borve.org/primeness/FOP.html
i = 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 value = 0, 1, 2, 0, 3, 0, 1, 0, 0, 0, 4, 0, 1, 0, 0, 0, 2, ...
Any composite has order 0. The order for a prime is based on whether its index in the list of all primes 2,3,5,7,11,etc is a prime and how many times that prime index descent can be repeated.
For example i=17 is a prime and is at index 7 in the list of all primes. That index 7 is a prime too and is at index 4. Then stop there since 4 is not a prime. Two iterations to reach a non-prime means i=17 has value 2 as its order of primeness.
Option on_values => 'primes' selects the orders of just the primes 2,3,5,7,etc. The effect is to eliminate the 0s from the sequence.
on_values => 'primes'
1, 2, 3, 1, 4, 1, 2, 1, 1, 1, 5, 1, 2, 1, 1, 1, ...
See "FUNCTIONS" in Math::NumSeq for behaviour common to all sequence classes.
$seq = Math::NumSeq::PrimeIndexOrder->new (level => $n)
Create and return a new sequence object.
Math::NumSeq, Math::NumSeq::Primes, Math::NumSeq::PrimeIndexPrimes, Math::NumSeq::ErdosSelfridgeClass
http://user42.tuxfamily.org/math-numseq/index.html
Copyright 2011, 2012, 2013, 2014, 2016, 2019, 2020 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/>.
To install Math::NumSeq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Math::NumSeq
CPAN shell
perl -MCPAN -e shell install Math::NumSeq
For more information on module installation, please visit the detailed CPAN module installation guide.