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 A055482 #17 Jul 24 2015 07:49:28 %S A055482 12,18,24,35,50,56,90,120,210,315,450,780,840,1500,3920,4320,4752, %T A055482 7744,16500,24960,57915,59400,60480,91728,269500,493920,917280, %U A055482 1293600,2419200,3386880,34992000,266378112,317447424,1277337600,3714984000,14948388000,48697248600,460522782720,896168448000 %N A055482 There exists some k>0 such that n is the product of (k + digits of n). %C A055482 18 appears to be the only term with k=1, there are no other terms with k=1 as well as with k=3,8,9 below 10^100. - _Max Alekseyev_, Jan 25 2015 %H A055482 Giovanni Resta, <a href="/A055482/b055482.txt">Table of n, a(n) for n = 1..59</a> (terms < 10^38) %e A055482 4752 = (4+4)(4+7)(4+5)(4+2). %t A055482 L={}; Do[Print@ n; Do[p = Reverse/@ IntegerPartitions[ k, {n}, Range[0, 9]]; Do[z = Times@@ (e + k); If[ Sort@ IntegerDigits@ z == e, Print[{z, k}]; AppendTo[L, z]], {k, 9}, {e, p}], {k, 9*n}],{n, 2, 13}]; Sort@ L (* terms < 10^13, _Giovanni Resta_, Jul 24 2015 *) %Y A055482 Cf. A055481, A113756 %Y A055482 Subsequences: A098113 (k=2), A098114 (k=4), A097371 (k=5), A097372 (k=6), A115227 (k=7) %K A055482 base,nonn %O A055482 1,1 %A A055482 _Erich Friedman_, Jun 27 2000 %E A055482 Offset corrected and more terms added by _Max Alekseyev_, Jan 23 2015