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

Author

Vladimir Shevelev, Apr 04 2011

Keywords

• nonn
• more

Comments

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

Crossrefs

Cf. A188550, A188579.

Programs

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

Extensions

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