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 A110277 #8 Dec 15 2017 17:36:57 %S A110277 1,2,4,5,6,8,14,16,17,24,28,32,37,38,42,44,64,72,92,98,101,110,128, %T A110277 134,152,170,172,180,186,192,197,206,248,252,256,257,284,374,398,401, %U A110277 410,428,434,474,480,496,512,577,590,604,616,632,638,677,752,760,864,884 %N A110277 Values of n such that the perfect deficiency (A109883) of n is a square. %t A110277 subtract = If[ #1 < #2, Throw[ #1], #1 - #2]&; f[n_] := Catch @ Fold[subtract, n, Divisors @ n]; Select[ Range[905], IntegerQ[ Sqrt[ f[ # ]]] &] (* _Robert G. Wilson v_, Jul 21 2005 *) %Y A110277 Cf. A110278. %K A110277 nonn %O A110277 1,2 %A A110277 _Jason Earls_, Jul 18 2005