|
| |
|
|
A086693
|
|
Number of primes < p^p where p is prime.
|
|
0
|
| |
|
|
|
OFFSET
|
2,1
|
|
|
LINKS
|
Table of n, a(n) for n=2..5.
|
|
|
EXAMPLE
|
There are 9 primes < 3^3 = 27, namely 2,3,5,7,11,13,17,19,23.
|
|
|
PROG
|
(PARI) primeslesspp(n) = \primes less than p^p { forprime(x=2, n, y=pi(x^x); print1(y", "); ); } pi(n) = { c=0; forprime(x=2, n, c++); return(c) }
|
|
|
CROSSREFS
|
Sequence in context: A049299 A024225 A000883 * A085605 A180936 A036878
Adjacent sequences: A086690 A086691 A086692 * A086694 A086695 A086696
|
|
|
KEYWORD
|
hard,nonn
|
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)gmail.com), Jul 28 2003
|
|
|
STATUS
|
approved
|
| |
|
|
