|
Search: id:A090124
|
|
|
| A090124 |
|
a(n) is the least positive n-th power integer such that nextprime[a(n)]-prevprime[a(n)]=q-p-4;. |
|
+0
1
|
|
| 5, 4, 8, 16, 11727599043051, 54980371265625, 128, 557556054479199010816, 22027845102081762861, 162889462677744140625, 803596764671634487466709, 14231716419191575233132742871310396257144854491849
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=4:a(n)=16,{p=13,16=4^4,q=17}
|
|
MATHEMATICA
|
Table[fla=1; Do[If[((PrimeQ[s=n^k-3]&&PrimeQ[s1=n^k+1]) ||(PrimeQ[s=n^k-2]&&PrimeQ[s1=n^k+2])||(PrimeQ[s=n^k-1] &&PrimeQ[s1=n^k+3]))&&Equal[fla, 1]&&!Equal[n, 1], Print[n^k]; fla=0], {n, 1, 1000000}], {k, 1, 60}]
|
|
CROSSREFS
|
Cf. A090121-A090125.
Sequence in context: A051555 A086407 A160427 this_sequence A097943 A077142 A156057
Adjacent sequences: A090121 A090122 A090123 this_sequence A090125 A090126 A090127
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 12 2004
|
|
|
Search completed in 0.002 seconds
|
