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 A066236 #20 Dec 04 2024 23:05:02
%S A066236 0,1,2,3,7,10,61,80,100,121,174,182,200,276,313,432,441,463,537,612,
%T A066236 666,739,775,961,1000,1239,1382,1413,1952,2000,2232,2427,2594,2935,
%U A066236 3195,3337,3381,3542,4438,4566,4630,4818,5266,5352,5745,6363,7026,7538,8142
%N A066236 Numbers k such that the sum of digits of k^k is a square.
%H A066236 Harry J. Smith, <a href="/A066236/b066236.txt">Table of n, a(n) for n=1,...,64</a>
%t A066236 fQ[n_] := IntegerQ[ Sqrt[ Plus @@ IntegerDigits[n^n]]]; Do[ If[ fQ[n], Print[n]], {n, 8498}] (* _Robert G. Wilson v_, Nov 23 2004 *)
%o A066236 (PARI) isok(k) = {issquare(sumdigits(k^k))} \\ _Harry J. Smith_, Feb 07 2010
%Y A066236 Cf. A000290, A000312, A007953, A066588.
%K A066236 base,nonn
%O A066236 1,3
%A A066236 _Jason Earls_, Dec 19 2001
%E A066236 More terms from _Robert G. Wilson v_, Nov 23 2004