Original entry on oeis.org
3, 5, 17, 29, 31, 37, 53, 97, 211, 1489, 1531, 1741, 4217, 12373, 12953, 14939, 34667, 180797
Offset: 1
-
A079372 = Cases[Import["https://oeis.org/A079372/b079372.txt", "Table"], {, }][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079372], i++,
If[A079372[[i]] > l, l = A079372[[i]]; AppendTo[a, l]]];
a (* Robert Price, Mar 14 2020 *)
Original entry on oeis.org
1, 2, 4, 7, 8, 12, 30, 32, 41, 237, 238, 497, 688, 1080, 1544, 1619, 2757, 3187
Offset: 1
-
A079372 = Cases[Import["https://oeis.org/A079372/b079372.txt", "Table"], {, }][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079372], i++,
If[A079372[[i]] > l, l = A079372[[i]]; AppendTo[a, i]]];
a (* Robert Price, Mar 14 2020 *)
Showing 1-2 of 2 results.
Comments