|
%I #6 May 01 2016 16:10:58
%S 1,10,14,20,24,38,40,48,60,84,120,180,264,300,396,432,504,540,630,720,
%T 840,1320,2184,2400,2772,3024,3120,3360,3780,3960,5940,6840,7200,8400,
%U 9240,10080,12600,15120,21840,22680,25200,27720,30240,40320,52920,55440,83160,128520,131040,138600,166320,196560,221760
%N Negative records in A187202 by index.
%C Often a(n)/2 is a member of A242393.
%C Search limit: 8300000000.
%H Robert G. Wilson v, <a href="/A272375/b272375.txt">Table of n, a(n) for n = 1..123</a>
%t f[n_] := (dvr = Divisors@ n; Differences[dvr, Length@ dvr - 1][[1]]); lst = {}; k = 1; mx = 2; While[k < 1000001, a = f@ k; If[a < mx, mx = a; AppendTo[lst, k]]; k++]
%Y Cf. A187202, A242393, A272374.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Apr 28 2016
|
