OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MAPLE
select(n -> isprime(3*ithprime(n)-2), [$1..1000]); # Robert Israel, Mar 04 2016
MATHEMATICA
PrimePi@ Select[Prime@ Range@ 167, PrimeQ[3 # - 2] &] (* Michael De Vlieger, Mar 04 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ray Chandler, Dec 27 2003
EXTENSIONS
Offset corrected by Michael De Vlieger, Mar 04 2016
STATUS
approved