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 A171673 #11 Aug 20 2020 06:41:23
%S A171673 1,3,20,86,97,110,176,187,266,277,356,367,457,637,714,716,727,804,815,
%T A171673 894,984,1087,1177,1267,1357,1436,1537,1614,1616,1627,1704,1715,1884,
%U A171673 1985,2077,2235,2257,2516,2694,2784,2885,3045,3135,3315,3326,3337,3414
%N A171673 Numbers n with property that both n and n^2 are self numbers (A003052).
%H A171673 David A. Corneth, <a href="/A171673/b171673.txt">Table of n, a(n) for n = 1..10000</a>
%H A171673 Zak Seidov, <a href="http://zak08.livejournal.com/17542.html">A171673</a>
%t A171673 nn=1.2*10^7; list=Table[n + Total[IntegerDigits[n]],{n,nn}]; se=Complement[Range[nn],list]; se1=Select[Sqrt[se],IntegerQ[#]&]; Intersection[se,se1] (* _Jayanta Basu_, May 06 2013 *)
%Y A171673 Cf. A003052 (Self or Colombian numbers), A171671 (self squares), A171672 (n^2 are self squares).
%K A171673 base,nonn
%O A171673 1,2
%A A171673 _Zak Seidov_, Dec 15 2009
%E A171673 Changed the word "safe" in this entry to "self". - _N. J. A. Sloane_, Feb 26 2017