cp's OEIS Frontend

A057849 Primes p whose order of primeness A078442(p) is at least 7.

%I A057849 #44 Nov 17 2024 20:35:21
%S A057849 709,5381,52711,167449,648391,1128889,2269733,3042161,4535189,7474967,
%T A057849 9737333,14161729,17624813,19734581,23391799,29499439,37139213,
%U A057849 38790341,50728129,56011909,59053067,68425619,77557187,87019979,101146501,113256643,119535373,127065427
%N A057849 Primes p whose order of primeness A078442(p) is at least 7.
%H A057849 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 A057849 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 A057849 N. Fernandez, <a href="http://www.borve.org/primeness/FOP.html">An order of primeness, F(p)</a>
%H A057849 N. Fernandez, <a href="/A006450/a006450.html">An order of primeness</a> [cached copy, included with permission of the author]
%p A057849 a:= ithprime@@7;
%p A057849 seq(a(n), n=1..30);  # _Alois P. Heinz_, Jun 14 2015
%t A057849 Nest[ Prime, Range[35], 7] (* _Robert G. Wilson v_, Mar 15 2004 *)
%o A057849 (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 A057849 Cf. A078442, A000040, A006450, A038580, A049090, A049203, A049202, A057850, A057851, A057847, A058332, A093047.
%K A057849 nonn
%O A057849 1,1
%A A057849 _Robert G. Wilson v_, Nov 10 2000
%E A057849 Name clarified by _Andrew Howroyd_, Nov 17 2024