|
%I #10 Oct 03 2015 23:09:22
%S 1,2,4,6,7,12,14,17,24,28,35,36,48,60,71,82,83,92,101,120,141,165,178,
%T 183,193,209,240,247,251,280,290,294,299,331,360,361,371,378,419,420,
%U 435,478,496,505,532,559,593,619,640,659,719,739,756,769,770,839,888
%N Values of records in A140067.
%e The value of 7 in this sequence means that A137849(8) = 7 with 8 being the corresponding value in A140067
%p read("transforms3") ; read("transforms") ; a := BFILETOLIST("b137849.txt") ; RECORDS(a)[1] ; # _R. J. Mathar_, Mar 20 2010
%t max = 1000; f[n_] := f[n] = Module[{c = 1, d = Divisors[n], k = DivisorSigma[0, n], m = 1}, While[m != n, If[Min[PadRight[Divisors[m], k, n]-d] > -1, c++]; m++]; c]; Do[f[n], {n, 1, max}]; a = 0; Reap[Do[If[f[n]>a, a = f[n]; Sow[a]], {n, 1, max}]][[2, 1]] (* _Jean-François Alcover_, Mar 03 2014, after _Robert G. Wilson v_ *)
%Y Cf. A140067, A137849.
%K nonn
%O 1,2
%A _J. Lowell_, May 08 2008
%E More terms from _R. J. Mathar_, Mar 20 2010
|
