[go: up one dir, main page]

login
A079386
Where records occur in A079384.
6
1, 8, 21, 76, 163, 315, 471, 999, 1168, 1238
OFFSET
1,2
COMMENTS
RECORDS transform of A079384.
LINKS
MATHEMATICA
A079384 = Cases[Import["https://oeis.org/A079384/b079384.txt", "Table"], {_, _}][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079384], i++,
If[A079384[[i]] > l, l = A079384[[i]]; AppendTo[a, i]]];
a (* Robert Price, Mar 15 2020 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Feb 16 2003
EXTENSIONS
a(4)-a(10) from Robert Price, Mar 15 2020
STATUS
approved