|
%I #51 Aug 11 2021 08:08:36
%S 31,127,709,1787,5381,8527,15299,19577,27457,42043,52711,72727,87803,
%T 96797,112129,137077,167449,173867,219613,239489,250751,285191,318211,
%U 352007,401519,443419,464939,490643,506683,527623,648391,683873,718807
%N Primes for which A049076(p) >= 5.
%C Union of A049081, A058322, A058324-A058328, A093046, etc. - _R. J. Mathar_, Jul 07 2012
%H Charles R Greathouse IV, <a href="/A049203/b049203.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.</a>
%H N. Fernandez, <a href="/A006450/a006450.html">An order of primeness</a> [cached copy, included with permission of the author]
%H Michael P. May, <a href="https://doi.org/10.35834/2020/3202158">Properties of Higher-Order Prime Number Sequences</a>, Missouri J. Math. Sci. (2020) Vol. 32, No. 2, 158-170; and <a href="https://arxiv.org/abs/2108.04662">arXiv version</a>, arXiv:2108.04662 [math.NT], 2021.
%F a(n) = A000040(A049090(n)). - _R. J. Mathar_, Jul 07 2012
%F a(n) ~ n (log n)^5. - _Charles R Greathouse IV_, Feb 16 2017
%p map(ithprime@@4, select(isprime, [$1..137])); # _Peter Luschny_, Feb 17 2014
%t Nest[ Prime, Range[35], 5] (* _Robert G. Wilson v_, Mar 15 2004 *)
%o (PARI) list(lim)=my(v=List(),q,r,s,t); forprime(p=2,lim, if(isprime(q++) && isprime(r++) && isprime(s++) && isprime(t++), listput(v,p))); Vec(v) \\ _Charles R Greathouse IV_, Feb 16 2017
%Y Cf. A000040, A006450, A038580, A049076, A049090, A049202, A057847, A057849, A057850, A057851, 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
|
