|
|
A085500
|
|
Indices of primes where nondecreasing gaps occur.
|
|
1
|
|
|
1, 2, 3, 4, 6, 8, 9, 11, 15, 16, 18, 21, 23, 24, 30, 62, 66, 99, 154, 189, 217, 1059, 1183, 1532, 1663, 1831, 2225, 2810, 3385, 14357, 29040, 30802, 31545, 40933, 103520, 104071, 118505, 149689, 325852, 733588, 983015, 1094421, 1319945, 2850174
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
A005669 is a subsequence of this sequence.
|
|
REFERENCES
|
R. K. Guy, Unsolved problems in number theory.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_] := Prime[n+1]-Prime[n]; v1={}; v2={}; Do[If[f[n]>=If[n==1, 1, Last[v2]], v=n; v1=Append[v1, n]; v2=Append[v2, f[v]]; Print[v1]], {n, 105000000}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|