This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A104023 #13 Feb 13 2021 01:11:43
%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,
%U A104023 5625,5776,6084,6348,6498,6724,7056,7396,7500,7569,8100,8464,8649,8820,8836
%N A104023 Numbers that have more than one way of being written as k^2*j with 0 < j <= k and gcd(k, j) = 1.
%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.
%K A104023 nonn
%O A104023 1,1
%A A104023 _Leroy Quet_ and _Robert G. Wilson v_, Feb 24 2005