|
| |
|
|
A137415
|
|
n for the first time IntegerPart[Sqrt[Prime[n]]] - PrimePi[n] == 1 - m for the first 20 m's, starting at m=0: n such that A000006[n]-A0000720[n]=1-m.
|
|
0
| |
|
|
1, 2, 43, 61, 83, 103, 109, 113, 151, 167, 179, 181, 197, 199, 233, 239, 251, 263, 271, 281, 283
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| a(m)=If[IntegerPart[Sqrt[Prime[n]]] - PrimePi[n] == 1 - m,n]
|
|
|
MATHEMATICA
| Table[Min[Flatten[Table[If[IntegerPart[Sqrt[Prime[n]]] - PrimePi[n] == 1 - m, n, {}], {n, 1, 500}]]], {m, 0, 20}]
|
|
|
CROSSREFS
| Cf. A000006, A000720.
Sequence in context: A069544 A085460 A139835 * A090194 A107200 A079823
Adjacent sequences: A137412 A137413 A137414 * A137416 A137417 A137418
|
|
|
KEYWORD
| nonn,uned,obsc
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 21 2008
|
|
|
EXTENSIONS
| Definition not clear. - N. J. A. Sloane (njas(AT)research.att.com), Apr 25 2008
|
| |
|
|
