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 A072228 #20 Nov 19 2021 16:08:59
%S A072228 6,244,285,133857,141635817,273722772124
%N A072228 Numbers k such that k equals the sum of the reverses of the proper divisors of k.
%C A072228 I call these numbers "anti-perfect" (compare with the picture-perfect numbers A069942).
%C A072228 a(7) > 10^12. - _Giovanni Resta_, Apr 07 2017
%e A072228 The proper divisors of 285 are 1, 3, 5, 15, 19, 57, 95, with sum of reverses = 1 + 3 + 5 + 51 + 91 + 75 + 59 = 285. Therefore 285 is anti-perfect.
%t A072228 f[n_] := FromDigits[Reverse[IntegerDigits[n]]]; Do[ If[n == Apply[Plus, Map[f, Drop[Divisors[n], -1]]], Print[n]], {n, 2, 10^7}]
%t A072228 Select[Range[15*10^7],Total[IntegerReverse[Most[Divisors[#]]]]==#&] (* Requires Mathematica version 10 or later *) (* The program takes a long time to run *) (* _Harvey P. Dale_, Aug 31 2016 *)
%Y A072228 Cf. A069942, A101701.
%K A072228 base,more,nonn,nice
%O A072228 1,1
%A A072228 _Joseph L. Pe_, Jul 05 2002
%E A072228 One more term from _Farideh Firoozbakht_, Dec 23 2004
%E A072228 a(6) from _Giovanni Resta_, Apr 07 2017