A194095 Record values in A056595.

0, 1, 3, 4, 6, 7, 10, 14, 15, 17, 20, 22, 24, 30, 32, 37, 44, 45, 46, 54, 60, 62, 66, 68, 74, 77, 78, 92, 93, 96, 114, 124, 138, 154, 160, 168, 186, 188, 189, 191, 204, 216, 234, 252, 282, 314, 328, 348, 378, 380, 391, 420, 440, 468, 474, 488, 504, 508, 564

Offset: 1

Author

Reinhard Zumkeller, Aug 15 2011

Keywords

• nonn

Comments

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

Links

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

Crossrefs

Cf. A002183.

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][[2]] (* T. D. Noe, Aug 15 2011 *)
DeleteDuplicates[Table[Count[Divisors[n],?(#!=Floor[Sqrt[#]]^2&)],{n,10^6}],GreaterEqual] (* _Harvey P. Dale, Mar 16 2023 *)