A079371 - OEIS

%I #8 Mar 15 2020 02:46:17

%S 1,2,3,5,6,9,19,23,25,35,36,42,976,977

%N Where records occur in A079369.

%C RECORDS transform of A079369.

%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>

%t A079369 = Cases[Import["https://oeis.org/A079369/b079369.txt", "Table"], {_, _}][[All, 2]];

%t a = {}; l = 0;

%t For[i = 1, i <= Length[A079369], i++,

%t   If[A079369[[i]] > l, l = A079369[[i]]; AppendTo[a, i]]];

%t a (* _Robert Price_, Mar 14 2020 *)

%Y Cf. A079369, A079370, A079366-A079368.

%K nonn,more

%O 1,2

%A _N. J. A. Sloane_, Feb 16 2003

%E a(13)-a(14) from _Robert Price_, Mar 14 2020