|
|
A049090
|
|
Primes for which A049076 >= 4.
|
|
19
|
|
|
11, 31, 127, 277, 709, 1063, 1787, 2221, 3001, 4397, 5381, 7193, 8527, 9319, 10631, 12763, 15299, 15823, 19577, 21179, 22093, 24859, 27457, 30133, 33967, 37217, 38833, 40819, 42043, 43651, 52711, 55351, 57943, 60647, 66851, 68639, 72727
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
map(ithprime@@3, select(isprime, [$1..157])); # Peter Luschny, Feb 17 2014
|
|
MATHEMATICA
|
|
|
PROG
|
(PARI) list(lim)=my(v=List(), q, r, s); forprime(p=2, lim, if(isprime(q++)&&isprime(r++)&&isprime(s++), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Feb 16 2017
|
|
CROSSREFS
|
Cf. A000040, A006450, A038580, A049076, A049202, A049203, A057847, A057849, A057850, A057851, A058332, A093047.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|