A138398 Values of records in A140067.

1, 2, 4, 6, 7, 12, 14, 17, 24, 28, 35, 36, 48, 60, 71, 82, 83, 92, 101, 120, 141, 165, 178, 183, 193, 209, 240, 247, 251, 280, 290, 294, 299, 331, 360, 361, 371, 378, 419, 420, 435, 478, 496, 505, 532, 559, 593, 619, 640, 659, 719, 739, 756, 769, 770, 839, 888

Offset

1,2

Links

Table of n, a(n) for n=1..57.

Example

The value of 7 in this sequence means that A137849(8) = 7 with 8 being the corresponding value in A140067

Maple

read("transforms3") ; read("transforms") ; a := BFILETOLIST("b137849.txt") ; RECORDS(a)[1] ; # R. J. Mathar, Mar 20 2010

Mathematica

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 *)

Crossrefs

Cf. A140067, A137849.

Sequence in context: A029501 A051730 A070317 * A086781 A261220 A272589

Adjacent sequences: A138395 A138396 A138397 * A138399 A138400 A138401

Keyword

nonn

Author

J. Lowell, May 08 2008

Extensions

More terms from R. J. Mathar, Mar 20 2010

Status

approved