|
Search: id:A090123
|
|
|
| A090123 |
|
n is such that nextprime[n^5]-prevprime[n^5]=4. |
|
+0
1
|
|
| 1, 411, 741, 819, 4041, 6165, 6315, 6861, 10281, 11025, 12489, 12579, 13119, 14331, 15225, 16095, 19125, 19881, 19929, 20799, 22461, 24051, 24885, 25815, 25971, 26979, 27075, 29955, 30801, 31641, 32661, 37371, 38361, 39369, 41181, 42681
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
n=411:{p=11727599043049,n^5=11727599043051,q=11727599043053}
|
|
MATHEMATICA
|
pre[x_] := Prime[PrimePi[x]] nex[x_] := Prime[PrimePi[x]+1] de[x_] := Prime[PrimePi[x]+1]-Prime[PrimePi[x]] k=5; Do[If[Equal[Prime[PrimePi[n^k]+1]-Prime[PrimePi[n^k]], 4], Print[n]], {n, 2, 100000}]
|
|
CROSSREFS
|
Cf. A077038, A058043, A090121-A090125.
Sequence in context: A052376 A107625 A061333 this_sequence A055018 A105211 A081378
Adjacent sequences: A090120 A090121 A090122 this_sequence A090124 A090125 A090126
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 12 2004
|
|
|
Search completed in 0.002 seconds
|
