|
%I #11 Jul 22 2019 04:37:24
%S 1,2,6,12,24,30,60,120,210,240,360,420,720,840,1260,1680,2520,3360,
%T 4620,5040,7560,9240,10080,13860,15120,18480,25200,27720,36960,50400,
%U 55440,83160,110880,166320,221760,277200,332640,360360,480480,498960,554400,665280
%N Where record values occur in A056595.
%C A194095(n) = A056595(a(n)) and A056595(m) < A194095(n) for m < a(n).
%H Amiram Eldar, <a href="/A194096/b194096.txt">Table of n, a(n) for n = 1..655</a>
%t 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 *)
%Y Cf. A002182.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Aug 15 2011
|
