|
Search: id:A137415
|
|
|
| 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
|
|
| 1, 2, 43, 61, 83, 103, 109, 113, 151, 167, 179, 181, 197, 199, 233, 239, 251, 263, 271, 281, 283
(list; graph; listen)
|
|
|
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.
Adjacent sequences: A137412 A137413 A137414 this_sequence A137416 A137417 A137418
Sequence in context: A069544 A085460 A139835 this_sequence A090194 A107200 A079823
|
|
KEYWORD
|
nonn,uned,obsc
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 21 2008
|
|
EXTENSIONS
|
Definition not clear. - njas, Apr 25 2008
|
|
|
Search completed in 0.002 seconds
|
