|
| |
|
|
A090122
|
|
n is such that nextprime[n^4]-prevprime[n^4]=4.
|
|
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; refs; listen; history; internal format)
|
|
|
|
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.
Sequence in context: A129411 A124447 A024765 * A114749 A141458 A080670
Adjacent sequences: A090119 A090120 A090121 * A090123 A090124 A090125
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jan 12 2004
|
| |
|
|
