login
A057850
Primes p such that order of primeness A049076(p) is > 8.
12
5381, 52711, 648391, 2269733, 9737333, 17624813, 37139213, 50728129, 77557187, 131807699, 174440041, 259336153, 326851121, 368345293, 440817757, 563167303, 718064159, 751783477, 997525853, 1107276647, 1170710369, 1367161723
OFFSET
1,1
COMMENTS
Union of A058325-A058328, A093046 etc. - R. J. Mathar, Jul 07 2012
LINKS
N. Fernandez, An order of primeness [cached copy, included with permission of the author]
FORMULA
a(n) = A049090(A049090(n)). - James G. Merickel, Feb 14 2010
a(n) = A000040(A057849(n)). - R. J. Mathar, Jul 07 2012
MATHEMATICA
Nest[ Prime, Range[35], 8] (* Robert G. Wilson v, Mar 15 2004 *)
PROG
(PARI) list(lim)=my(v=List(), q, r, s, t, u, vv, w); forprime(p=2, lim, if(isprime(q++) && isprime(r++) && isprime(s++) && isprime(t++) && isprime(u++) && isprime(vv++) && isprime(w++), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Feb 19 2017
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 10 2000
STATUS
approved