|
%I #40 Jul 22 2021 05:00:23
%S 127,709,5381,15299,52711,87803,167449,219613,318211,506683,648391,
%T 919913,1128889,1254739,1471343,1828669,2269733,2364361,3042161,
%U 3338989,3509299,4030889,4535189,5054303,5823667,6478961,6816631
%N Primes p whose order of primeness A049076(p) is >= 6.
%C Union of A058322, A058324-A058328, A093046 etc.
%H Michael De Vlieger, <a href="/A049202/b049202.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms 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 map(ithprime@@4,select(isprime, [$1..137])); # _Peter Luschny_, Feb 17 2014
%t Nest[ Prime, Range[35], 6] (* _Robert G. Wilson v_, Mar 15 2004 *)
%o (PARI) list(lim)=my(v=List(), q, r, s, t, u); forprime(p=2, lim, if(isprime(q++) && isprime(r++) && isprime(s++) && isprime(t++) && isprime(u++), listput(v, p))); Vec(v) \\ _Charles R Greathouse IV_, Feb 16 2017
%Y Cf. A049076, A000040, A006450, A038580, A049090, A049203, A057849, A057850, A057851, A057847, A058332, A093047.
%K nonn
%O 1,1
%A _Neil Fernandez_
%E More terms from _Robert G. Wilson v_, Nov 10 2000
%E Name corrected by _Sean A. Irvine_, Jul 21 2021
|
