login
A194096
Where record values occur in A056595.
3
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
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 15 2011
STATUS
approved