|
| |
|
|
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.
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A005669 A038664 A148077
Adjacent sequences: A080373 A080374 A080375 * A080377 A080378 A080379
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Feb 27 2003
|
| |
|
|
