Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #17 Jul 24 2015 07:49:28
%S 12,18,24,35,50,56,90,120,210,315,450,780,840,1500,3920,4320,4752,
%T 7744,16500,24960,57915,59400,60480,91728,269500,493920,917280,
%U 1293600,2419200,3386880,34992000,266378112,317447424,1277337600,3714984000,14948388000,48697248600,460522782720,896168448000
%N There exists some k>0 such that n is the product of (k + digits of n).
%C 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 Giovanni Resta, <a href="/A055482/b055482.txt">Table of n, a(n) for n = 1..59</a> (terms < 10^38)
%e 4752 = (4+4)(4+7)(4+5)(4+2).
%t 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 Cf. A055481, A113756
%Y Subsequences: A098113 (k=2), A098114 (k=4), A097371 (k=5), A097372 (k=6), A115227 (k=7)
%K base,nonn
%O 1,1
%A _Erich Friedman_, Jun 27 2000
%E Offset corrected and more terms added by _Max Alekseyev_, Jan 23 2015