|
Search: id:A080376
|
|
|
| A080376 |
|
a(n)=value where A080374 increases, i.e. where consecutive prime-difference, p[a(n)+1]-p[a(n)] arises with new prime-power factor. |
|
+0
5
|
|
| 2, 4, 9, 24, 30, 34, 99, 189, 217, 282, 367, 738, 3302, 3427, 3644, 3793, 4612, 7970, 8688, 14357, 23283, 34202, 49414, 85633, 85787, 103520, 224659, 273413, 415069, 474029, 685903
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
s=1; Do[s1=s; s=LCM[s, Prime[n+1]-Prime[n]]; If[Greater[s, s1], Print[n]], {n, 1, 100000}]
|
|
CROSSREFS
|
Cf. A001223, A080374, A080376.
Sequence in context: A125789 A058731 A144309 this_sequence A005669 A038664 A148077
Adjacent sequences: A080373 A080374 A080375 this_sequence A080377 A080378 A080379
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Feb 27 2003
|
|
|
Search completed in 0.002 seconds
|
