|
Search: id:A090122
|
|
|
| A090122 |
|
n is such that nextprime[n^4]-prevprime[n^4]=4. |
|
+0
2
|
|
| 2, 3, 21, 34, 46, 87, 99, 129, 141, 220, 242, 254, 266, 278, 279, 476, 526, 550, 616, 627, 657, 772, 777, 783, 795, 1072, 1088, 1322
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=21:{p=194479,n^4=194481,q=194483}, 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=4; Do[If[Equal[Prime[PrimePi[n^k]+1]-Prime[PrimePi[n^k]], 4], Print[n]], {n, 2, 100000}]
|
|
CROSSREFS
|
Cf. A077038, A058043, A090122-A090125.
Adjacent sequences: A090119 A090120 A090121 this_sequence A090123 A090124 A090125
Sequence in context: A129411 A124447 A024765 this_sequence A114749 A141458 A080670
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 12 2004
|
|
|
Search completed in 0.002 seconds
|
