%I #14 Jan 17 2024 09:19:57
%S 1,6,12,30,60,120,180,360,420,720,840,1260,2520,5040,7920,9240,13860,
%T 18480,25200,27720,50400,55440,83160,110880,138600,163800,166320,
%U 240240,277200,327600,332640,360360,554400,720720,1081080,1413720,1441440,1801800,2162160,2827440
%N Where records occur in A322373.
%e The divisors of 6 are {1, 2, 3, 6} and gcd(3, 6) = 3 > 1 but gcd(2, 3, 6) = 1. As 2 is the second divisor of 6, A322373(6) = 2. This is a new record; A322373(k) < 2 for all k < 6. Therefore, 6 is in the sequence.
%t With[{s = Array[LengthWhile[#, # == 1 &] &@ Reverse@ FoldList[GCD[#1, #2] &, Reverse@ Divisors@ #] &, 10^6]}, Map[First@ FirstPosition[s, #] &, Union@ FoldList[Max, s]]] (* _Michael De Vlieger_, Dec 31 2018 *)
%o (PARI) upto(n) = my(r=0, res=List()); for(i=1, n, c=A322373(i); if(c > r, listput(res, i); print1(i", "); r = c)); res \\ _David A. Corneth_, Dec 09 2018
%Y Cf. A322373.
%K nonn
%O 1,2
%A _David A. Corneth_, Dec 09 2018