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 A242538 #15 Feb 20 2015 17:50:54
%S A242538 1,9,36,81,144,225,324,441,729,1089,1296,2025,2304,2601,2916,3249,
%T A242538 3600,3969,4356,4761,6561,7056,7569,8100,8649,9216,9801,10404,11025,
%U A242538 11664,12996,13689,15129,16641,17424,20736,22500,23409,26244,29241
%N A242538 Squares that are sum of digits of factorials.
%C A242538 Intersection of A000290 and A004152.
%e A242538 a(5)=144 for 33!=8683317618811886495518194401280000000 whose sum of digits is 144=12^2. a(5) is also originated from 34! and 35!.
%t A242538 Union[Select[Total[IntegerDigits[#]]&/@(Range[2500]!),IntegerQ[Sqrt[#]]&]] (* _Harvey P. Dale_, Feb 20 2015 *)
%o A242538 (PARI) lista(nn) = {v = vector(nn, n, sumdigits(n!)); Set(select(x->issquare(x), v));} \\ _Michel Marcus_, May 18 2014
%Y A242538 Cf. A066235.
%K A242538 nonn,base
%O A242538 1,2
%A A242538 _Carmine Suriano_, May 17 2014