OFFSET
1,1
PROG
(PARI) for(n=0, 10^4, d=digits(n); p=prod(i=1, #d, d[i]); dp=digits(n+p); if(p&&vecsort(d, , 8)==vecsort(dp, , 8), print1(n, ", ")))
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Derek Orr, Sep 25 2014
STATUS
approved