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 A074385 #10 Jun 05 2015 05:04:51
%S A074385 1,2,6,12,12,11,12,12,12,18,24,18,16,18,24,24,24,20,24,24,28,24,24,31,
%T A074385 30,24,36,24,24,36,32,28,36,36,30,36,36,42,36,42,32,48,36,48,42,42,40,
%U A074385 42,60,56,48,48,42,36,62,36,36,48,40,60,48,42,48,40,48,60,48,56,60,48
%N A074385 Square root of sum of divisors, when it is a square.
%H A074385 Ivan Neretin, <a href="/A074385/b074385.txt">Table of n, a(n) for n = 1..10000</a>
%F A074385 a(n) = sqrt(A000203(A006532(n))).
%t A074385 Select[Sqrt[DivisorSigma[1, Range@1800]], IntegerQ] (* _Ivan Neretin_, Jun 05 2015 *)
%o A074385 (PARI) lista(nn) = {for (n=1, nn, if (issquare(s=sigma(n)), print1(sqrtint(s), ", ")););} \\ _Michel Marcus_, Dec 18 2013
%Y A074385 Cf. A000203, A006532.
%K A074385 nonn,look
%O A074385 1,2
%A A074385 _Labos Elemer_, Aug 22 2002