OFFSET
1,2
COMMENTS
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
m[w_] := Flatten@Table[i, {i, 9}, {w[[i]]}]; palQ[n_] := n == FromDigits@ Reverse@ IntegerDigits@n; all[upd_] := Union@ Flatten@ Table[ FromDigits /@ Flatten[ Permutations /@ m /@ Select[ Flatten[Permutations /@ (IntegerPartitions[d + 9, {9}, Range[d+1]] -1), 1], Times @@ (Range[9]^#) == Total[# Range[9]] &], 1], {d, upd}]; Select[all@13, palQ] (* Giovanni Resta, May 06 2016 *)
PROG
(PARI) isok(n) = { my(d = digits(n)); (vecsum(d) == prod(k=1, #d, d[k])) && (subst(Polrev(d), x, 10) == n); } \\ Michel Marcus, May 07 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Altug Alkan, May 06 2016
EXTENSIONS
a(15)-a(29) from Giovanni Resta, May 06 2016
STATUS
approved