|
%I #11 Mar 15 2020 02:47:49
%S 1,2,4,7,8,12,30,32,41,237,238,497,688,1080,1544,1619,2757,3187
%N Where records occur in A079372.
%C RECORDS transform of A079372.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%t A079372 = Cases[Import["https://oeis.org/A079372/b079372.txt", "Table"], {_, _}][[All, 2]];
%t a = {}; l = 0;
%t For[i = 1, i <= Length[A079372], i++,
%t If[A079372[[i]] > l, l = A079372[[i]]; AppendTo[a, i]]];
%t a (* _Robert Price_, Mar 14 2020 *)
%Y Cf. A079372, A079373, A079366-A079368.
%K nonn,more
%O 1,2
%A _N. J. A. Sloane_, Feb 16 2003
%E a(10) - a(18) from _Nathaniel Johnston_, Apr 25 2011
|
