%I #38 Jan 14 2024 06:55:16
%S 709,5381,52711,167449,648391,1128889,2269733,3042161,4535189,7474967,
%T 9737333,14161729,17624813,19734581,23391799,29499439,37139213,
%U 38790341,50728129,56011909,59053067,68425619,77557187,87019979,101146501,113256643,119535373,127065427
%N Primes p such that order of primeness A049076(p) is > 7.
%H Charles R Greathouse IV, <a href="/A057849/b057849.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Robert G. Wilson v)
%H R. G. Batchko, <a href="http://arxiv.org/abs/1405.2900">A prime fractal and global quasi-self-similar structure in the distribution of prime-indexed primes</a>, arXiv preprint arXiv:1405.2900 [math.GM], 2014.
%H N. Fernandez, <a href="http://www.borve.org/primeness/FOP.html">An order of primeness, F(p)</a>
%H N. Fernandez, <a href="/A006450/a006450.html">An order of primeness</a> [cached copy, included with permission of the author]
%p a:= ithprime@@7;
%p seq(a(n), n=1..30); # _Alois P. Heinz_, Jun 14 2015
%t Nest[ Prime, Range[35], 7] (* _Robert G. Wilson v_, Mar 15 2004 *)
%o (PARI) list(lim)=my(v=List(), q, r, s, t, u, vv); forprime(p=2, lim, if(isprime(q++) && isprime(r++) && isprime(s++) && isprime(t++) && isprime(u++) && isprime(vv++), listput(v, p))); Vec(v) \\ _Charles R Greathouse IV_, Feb 16 2017
%Y Cf. A049076, A000040, A006450, A038580, A049090, A049203, A049202, A057850, A057851, A057847, A058332, A093047.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Nov 10 2000
|