A079383 Where records occur in A079381.

1, 2, 3, 4, 5, 8, 23, 107, 658, 1675

Offset: 1

Author

N. J. A. Sloane, Feb 16 2003

Keywords

• nonn
• more

Comments

RECORDS transform of A079381.

Links

• N. J. A. Sloane, Transforms

Crossrefs

Cf. A079381, A079382, A079366, A079367, A079368.

Programs

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 *)

Extensions

a(8)-a(10) from Robert Price, Mar 15 2020