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 A104022 #13 Feb 13 2021 01:11:46
%S A104022 64,100,144,196,256,324,400,484,512,576,648,676,729,784,800,900,968,
%T A104022 1024,1089,1152,1156,1296,1352,1444,1521,1568,1600,1728,1764,1800,
%U A104022 1936,2025,2028,2048,2116,2304,2312,2352,2500,2592,2601,2700,2704,2888,2916
%N A104022 Numbers that have more than one way of being written as k^2*j, 0 < j <= k.
%t A104022 t = Sort[ Flatten[ Table[k^2*j, {k, 55}, {j, k}]]]; u = Table[ Count[t, n], {n, 3000}]; Select[ Range[3000], u[[ # ]] > 1 &]
%Y A104022 Cf. A104023, A102354, A104020, A104024.
%K A104022 nonn
%O A104022 1,1
%A A104022 _Leroy Quet_ and _Robert G. Wilson v_, Feb 23 2005