login
A079383
Where records occur in A079381.
2
1, 2, 3, 4, 5, 8, 23, 107, 658, 1675
OFFSET
1,2
COMMENTS
RECORDS transform of A079381.
LINKS
MATHEMATICA
A079381 = Cases[Import["https://oeis.org/A079381/b079381.txt", "Table"], {_, _}][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079381], i++,
If[A079381[[i]] > l, l = A079381[[i]]; AppendTo[a, i]]];
a (* Robert Price, Mar 15 2020 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Feb 16 2003
EXTENSIONS
a(8)-a(10) from Robert Price, Mar 15 2020
STATUS
approved