|
|
A049203
|
|
Primes for which A049076(p) >= 5.
|
|
18
|
|
|
31, 127, 709, 1787, 5381, 8527, 15299, 19577, 27457, 42043, 52711, 72727, 87803, 96797, 112129, 137077, 167449, 173867, 219613, 239489, 250751, 285191, 318211, 352007, 401519, 443419, 464939, 490643, 506683, 527623, 648391, 683873, 718807
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
map(ithprime@@4, select(isprime, [$1..137])); # Peter Luschny, Feb 17 2014
|
|
MATHEMATICA
|
|
|
PROG
|
(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
|
|
CROSSREFS
|
Cf. A000040, A006450, A038580, A049076, A049090, A049202, A057847, A057849, A057850, A057851, A058332, A093047.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|