A188591 Records of A188550.

1, 2, 3, 4, 6, 8, 9, 10, 12, 16, 18, 20, 24, 30, 32, 36, 40, 48, 60, 64, 72, 80, 84, 90, 96, 100, 108, 120, 128, 144, 160, 168, 180, 192, 200, 216

Offset

1,2

Comments

Is this the same sequence as A002183, number of divisors of n-th highly composite number?

Links

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

Mathematica

max = 10^6; (* b = A188550 *) b[n_] := Max @ Table[Length @ Select[ Table[ n-d, {d, Divisors[n-k] // Rest}], Mod[#, k] == 0&], {k, 2, Floor[ Sqrt[n] ]}]; A188591 = Reap[For[record = 0; k = 1; n = 1, n <= max, n++, bn = b[n]; If[bn > record, record = bn; Print["a(", k++, ") = b(", n, ") = ", bn]; Sow[bn]]]][[2, 1]] (* Jean-François Alcover, Feb 07 2016 *)

Crossrefs

Cf. A188550, A188579.

Sequence in context: A344296 A333506 A303492 * A002183 A349607 A060306

Adjacent sequences: A188588 A188589 A188590 * A188592 A188593 A188594

Keyword

nonn,more

Author

Vladimir Shevelev, Apr 04 2011

Extensions

More terms from Jean-François Alcover, Feb 07 2016

Status

approved