OFFSET
1,2
COMMENTS
The asymptotic density of this sequence is 1/2 (by Dirichlet's theorem). - Amiram Eldar, Feb 28 2021
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
PrimePi/@Select[3Range[0, 250]-1, PrimeQ] (* Harvey P. Dale, Apr 26 2011 *)
Select[Range[150], IntegerQ[(Prime[#]+1)/3]&] (* Harvey P. Dale, Dec 14 2021 *)
PROG
(PARI) a091177(limit)={my(m=0); forprime(p=2, prime(limit), m++; if(p%3==2, print1(m, ", ")))};
a091177(123) \\ Hugo Pfoertner, Aug 03 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ray Chandler, Dec 26 2003
STATUS
approved