OFFSET
1,3
COMMENTS
This sequence can be used to find terms of A064154 by permuting digits of terms of this sequence.
MATHEMATICA
Union@ Flatten@ Reap[ Sow[0]; Do[ If[ FactorInteger[ nd s ][[-1, 1]] <= 7, Sow[ FromDigits /@ Reverse /@ Select[ IntegerPartitions[s, {nd}, Range[9]], Times @@ # == Length[#] Plus @@ # &]]], {nd, 18}, {s, 9 nd}]][[2, 1]] (* terms < 10^18, Giovanni Resta, Jul 18 2018 *)
dnoQ[n_]:=Module[{idn=IntegerDigits[n]}, Min[Differences[idn]]>=0 && Times@@idn==Length[idn]Total[idn]]; Select[Range[0, 111112300], dnoQ] (* Harvey P. Dale, Aug 12 2021 *)
PROG
(PARI) is(n) = my(d = digits(n)); vecsort(d) == d && prod(i=1, #d, d[i]) == #d * vecsum(d) \\ David A. Corneth, Jul 18 2018
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
David A. Corneth, Jun 25 2018
STATUS
approved