|
Search: id:A090121
|
|
|
| A090121 |
|
n is such that nextprime[n^3]-prevprime[n^3]=4. |
|
+0
4
|
|
| 2, 129, 189, 369, 435, 549, 555, 561, 819, 1245, 1491, 1719, 1779, 1839, 1875, 1935, 2175, 2289, 2415, 2451, 2595, 2709, 2769, 3141, 3441, 4401, 4611, 4851, 5655, 5775, 6075, 6099
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
Solutions to A077038[x]=4.
|
|
EXAMPLE
|
n=129:{p=2146687,n^3=2146689,q=2146691}, q-p=4.
|
|
MATHEMATICA
|
pre[x_] := Prime[PrimePi[x]] nex[x_] := Prime[PrimePi[x]+1] de[x_] := Prime[PrimePi[x]+1]-Prime[PrimePi[x]] k=3; Do[If[Equal[Prime[PrimePi[n^k]+1]-Prime[PrimePi[n^k]], 4], Print[n]], {n, 2, 100000}]
|
|
CROSSREFS
|
Cf. A077038, A058043, A090122-A090125.
Sequence in context: A024345 A012524 A012670 this_sequence A003369 A099824 A098533
Adjacent sequences: A090118 A090119 A090120 this_sequence A090122 A090123 A090124
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 12 2004
|
|
|
Search completed in 0.002 seconds
|
