A020901 Greatest k such that k-th prime < 3 times n-th prime.
3, 4, 6, 8, 11, 12, 15, 16, 19, 23, 24, 29, 30, 31, 34, 37, 40, 42, 46, 47, 47, 51, 53, 56, 61, 62, 63, 66, 66, 68, 75, 77, 80, 80, 86, 87, 91, 93, 95, 97, 99, 100, 105, 106, 107, 108, 115, 121, 123, 124, 125, 127, 128, 133, 136, 138, 139, 141, 145
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Table[PrimePi[NextPrime[3Prime[n],-1]],{n,60}] (* Harvey P. Dale, Feb 21 2014 *) -
PARI
a(n) = primepi(3*prime(n)) \\ Michel Marcus, Mar 22 2013