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

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

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

Crossrefs

Cf. A002183.

Sequence in context: A026313 A024912 A108588 * A064404 A294488 A364341

Adjacent sequences: A194092 A194093 A194094 * A194096 A194097 A194098

Keyword

nonn

Author

Reinhard Zumkeller, Aug 15 2011

Status

approved