|
%I #18 May 10 2022 11:16:47
%S 1,6,15,30,70,105,210,462,770,1155,2145,2310,4290,6006,9282,10010,
%T 15015,23205,30030,46410,67830,72930,102102,149226,170170,248710,
%U 255255,373065,440895,510510,746130,881790,1193010,1385670,1874730,1939938,2624622,3233230
%N Indices of records in A353693.
%C The corresponding record values are 1, 2, 3, 12, 20, 45, 360, 504, 1400, 4725, 7425, 75600, 118800, 232848, 275184, 1078000, 5457375, 6449625, 174636000, 206388000, 269892000, 509652000, ...
%C Are all the terms squarefree (A005117)? If yes, then the calculation of terms of this sequence can be significantly sped up.
%H Chai Wah Wu, <a href="/A353695/b353695.txt">Table of n, a(n) for n = 1..51</a>
%e The first 15 terms of A353693 are 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2 and 3. The record values, 1, 2 and 3, occur at 1, 6 and 15, the first 3 terms of this sequence.
%t f[n_] := Module[{k = 1}, While[! UnsameQ @@ FactorInteger[k*n][[;; , 2]], k++]; k]; fm = 0; s = {}; Do[f1 = f[n]; If[f1 > fm, fm = f1; AppendTo[s, n]], {n, 1, 10^4}]; s
%Y Cf. A005117, A353693.
%K nonn
%O 1,2
%A _Amiram Eldar_, May 04 2022
%E a(27)-a(38) from _Chai Wah Wu_, May 07 2022
|
