%I A104023
%S A104023 100,196,324,484,676,900,1089,1156,1444,1521,1764,2028,2116,2304,2500,
%T A104023 2601,2916,3249,3364,3468,3600,3844,4332,4356,4624,4761,4900,5476,5625,
%U A104023 5776,6084,6348,6498,6724,7056,7396,7500,7569,8100,8464,8649,8820,8836
%N A104023 Number n which have more than one way of being written as k^2*j, 0 < 
               j <= k & (k, j) = 1.
%H A104023 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%t A104023 t = Sort[ Flatten[ Table[ If[ GCD[k, j] == 1, k^2*j, {}], {k, 1000}, 
               {j, k}]]]; u = Table[ Count[t, n], {n, 9215}]; Select[ Range[9215], 
               u[[ # ]] > 1 &]
%Y A104023 Cf. A104022, A102448, A104021.
%Y A104023 Sequence in context: A025411 A025408 A068805 this_sequence A072367 A036742 
               A044332
%Y A104023 Adjacent sequences: A104020 A104021 A104022 this_sequence A104024 A104025 
               A104026
%K A104023 nonn
%O A104023 1,1
%A A104023 Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 24 2005