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