A079380 Where records occur in A079378.

1, 2, 3, 7, 10, 22, 38, 111, 200, 1193

Offset: 1

Author

N. J. A. Sloane, Feb 16 2003

Keywords

• nonn
• more

Comments

RECORDS transform of A079378.

Links

• N. J. A. Sloane, Transforms

Crossrefs

Cf. A079378, A079379, A079366-A079368.

Programs

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

Extensions

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