|
%I #10 Mar 15 2020 22:20:53
%S 1,2,4,8,11,78,623,661,729,812,993,1088,1318,4250,7041,7499
%N Where records occur in A079387.
%C RECORDS transform of A079387.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%t A079387 = Cases[Import["https://oeis.org/A079387/b079387.txt", "Table"], {_, _}][[All, 2]];
%t a = {}; l = 0;
%t For[i = 1, i <= Length[A079387], i++,
%t If[A079387[[i]] > l, l = A079387[[i]]; AppendTo[a, i]]];
%t a (* _Robert Price_, Mar 15 2020 *)
%Y Cf. A079387, A079388, A079366, A079367, A079368.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Feb 16 2003
%E More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 06 2005
|
