A194096 Where record values occur in A056595.

1, 2, 6, 12, 24, 30, 60, 120, 210, 240, 360, 420, 720, 840, 1260, 1680, 2520, 3360, 4620, 5040, 7560, 9240, 10080, 13860, 15120, 18480, 25200, 27720, 36960, 50400, 55440, 83160, 110880, 166320, 221760, 277200, 332640, 360360, 480480, 498960, 554400, 665280

Offset: 1

Author

Reinhard Zumkeller, Aug 15 2011

Keywords

• nonn

Comments

A194095(n) = A056595(a(n)) and A056595(m) < A194095(n) for m < a(n).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..655

Crossrefs

Cf. A002182.

Programs

Mathematica

mx = -1; t = {}; Do[s = Length[Select[Divisors[n], ! IntegerQ[Sqrt[#]] &]]; If[s > mx, mx = s; AppendTo[t, {n, mx}]], {n, 1000000}]; Transpose[t][[1]] (* T. D. Noe, Aug 15 2011 *)