|
| |
|
|
A060967
|
|
Number of prime squares <= 2^n.
|
|
10
| |
|
|
0, 0, 1, 1, 2, 3, 4, 5, 6, 8, 11, 14, 18, 24, 31, 42, 54, 72, 97, 128, 172, 229, 309, 418, 564, 760, 1028, 1393, 1900, 2585, 3512, 4792, 6542, 8952, 12251, 16777, 23000, 31579, 43390, 59631, 82025, 112957, 155611, 214516, 295947, 408493, 564163, 779638
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=0,...,63
|
|
|
EXAMPLE
| n=8, prime-squares not exceeding 256 are: 4,9,25,49,121,169 so a(8)=6.
|
|
|
MATHEMATICA
| Table[ PrimePi[ Floor[ 2^(g/2)//N ] ], {g, 1, 75} ]
|
|
|
PROG
| (PARI) { f="b060967.txt"; default(primelimit, 4294965247); a=n=-1; s=1; forprime (p=2, 4294965247, a++; if (p^2>s, write(f, n++, " ", a); s*=2); if (p^2>s, write(f, n++, " ", a); s*=2); ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 15 2009]
|
|
|
CROSSREFS
| A007053, A036386.
Sequence in context: A046889 A026267 A124067 * A026483 A098131 A017899
Adjacent sequences: A060964 A060965 A060966 * A060968 A060969 A060970
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 09 2001
|
|
|
EXTENSIONS
| Added term a(0) by Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 15 2009
|
| |
|
|
