OFFSET
1,2
COMMENTS
An increasing subset of sequence A031884.
EXAMPLE
MATHEMATICA
lst = Range[1, 10^6, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; lst2 = {}; d = 0; Do[a = t[[n + 1]] - t[[n]]; If[a > d, d = a; AppendTo[lst, t[[n]]]], {n, 5286237}]; lst2
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, May 12 2006
EXTENSIONS
a(25)-a(29) from Donovan Johnson, Oct 23 2010
a(30) from Donovan Johnson, Jun 20 2011
a(31)-a(33) from Kevin P. Thompson, Nov 24 2021
STATUS
approved