login
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
OFFSET
1,1
COMMENTS
Union of A049080, A049081, A058322, A058324, etc. - R. J. Mathar, Jul 07 2012
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]
FORMULA
a(n) = A006450(A006450(n)). - James G. Merickel, Feb 14 2010
a(n) = A000040(A038580(n)). - R. J. Mathar, Jul 07 2012
a(n) ~ n (log n)^4. - Charles R Greathouse IV, Feb 16 2017
MAPLE
map(ithprime@@3, select(isprime, [$1..157])); # Peter Luschny, Feb 17 2014
MATHEMATICA
Nest[ Prime, Range[40], 4] (* Robert G. Wilson v, Mar 15 2004 *)
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
KEYWORD
nonn
EXTENSIONS
Name corrected by Sean A. Irvine, Jul 18 2021
STATUS
approved