login
A079380
Where records occur in A079378.
2
1, 2, 3, 7, 10, 22, 38, 111, 200, 1193
OFFSET
1,2
COMMENTS
RECORDS transform of A079378.
LINKS
MATHEMATICA
A079378 = Cases[Import["https://oeis.org/A079378/b079378.txt", "Table"], {_, _}][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079378], i++,
If[A079378[[i]] > l, l = A079378[[i]]; AppendTo[a, i]]];
a (* Robert Price, Mar 14 2020 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Feb 16 2003
EXTENSIONS
a(8)-a(10) from Robert Price, Mar 14 2020
STATUS
approved