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,2

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

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

Crossrefs

Cf. A002182.

Sequence in context: A058868 A129314 A137895 * A099993 A011778 A067718

Adjacent sequences: A194093 A194094 A194095 * A194097 A194098 A194099

Keyword

nonn

Author

Reinhard Zumkeller, Aug 15 2011

Status

approved