|
| |
|
|
A087865
|
|
Numbers n such that there are a prime number of primes less than 3^n.
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Select[ Table[ PrimePi[ 3^n], {n, 0, 30}], PrimeQ@# &] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 25 2010]
|
|
|
PROG
| (PARI) primeslessxn2(n, p) = \primes < p^n if prime { sr=0; for(x=0, n, y=pi(p^x); if(y<>0, sr+=1.0/y); if(isprime(y), print1(y", ")); ); print(); print(sr) }
|
|
|
CROSSREFS
| Sequence in context: A119777 A176943 A176946 * A083471 A078691 A113028
Adjacent sequences: A087862 A087863 A087864 * A087866 A087867 A087868
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Oct 27 2003
|
| |
|
|
