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 A110084 #7 Oct 16 2012 09:03:07
%S A110084 146710,334552,12931485,15734393,16839254,20499191,28661422,38722820,
%T A110084 43681330,44463034,45509442,55188392,55938216,92505149,1054662422,
%U A110084 1060804965,1068721252,1094834272,1167528360,1341465139,1436725284,1452198772,1452847236,1540709585,1594291529,1596602643,1672853710
%N A110084 Numbers n with even length such that sigma(n)=d_1^d_2*d_3^d_4 *...*d_(k-1)^d_k where d_1 d_2 ... d_k is the decimal expansion of n.
%H A110084 Max Alekseyev, <a href="/A110084/b110084.txt">Table of n, a(n) for n = 1..99</a>
%e A110084 45509442 is in the sequence because sigma(55938216)=5^5*9^3*8^2*1^6.
%t A110084 Do[h = IntegerDigits[n]; k = Length[h]; If[EvenQ[k] && Select[ Range[k/2], h[[2#-1]] == 0 &] == {} && DivisorSigma[1, n]== Product[h[[2j-1]]^h[[2j]], {j, k/2}], Print[n]], {n, 10^8}]
%Y A110084 Cf. A112009, A112010, A112011.
%K A110084 base,nonn
%O A110084 1,1
%A A110084 _Farideh Firoozbakht_, Aug 26 2005
%E A110084 Terms a(14) onward from _Max Alekseyev_, Oct 16 2012