[go: up one dir, main page]

login
A049202
Primes p whose order of primeness A049076(p) is >= 6.
17
127, 709, 5381, 15299, 52711, 87803, 167449, 219613, 318211, 506683, 648391, 919913, 1128889, 1254739, 1471343, 1828669, 2269733, 2364361, 3042161, 3338989, 3509299, 4030889, 4535189, 5054303, 5823667, 6478961, 6816631
OFFSET
1,1
COMMENTS
Union of A058322, A058324-A058328, A093046 etc.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000 (first 1000 terms from Robert G. Wilson v)
N. Fernandez, An order of primeness [cached copy, included with permission of the author]
MAPLE
map(ithprime@@4, select(isprime, [$1..137])); # Peter Luschny, Feb 17 2014
MATHEMATICA
Nest[ Prime, Range[35], 6] (* Robert G. Wilson v, Mar 15 2004 *)
PROG
(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
KEYWORD
nonn
EXTENSIONS
More terms from Robert G. Wilson v, Nov 10 2000
Name corrected by Sean A. Irvine, Jul 21 2021
STATUS
approved