OFFSET
1,3
COMMENTS
A002275 is a subsequence, thus this sequence is infinite.
PROG
(PARI)
for(n=0, 10^6, d=digits(n); p=prod(i=1, #d, d[i]); if(vecsort(digits(n), , 8)==vecsort(digits(n*p), , 8), print1(n, ", ")))
(Magma) [n: n in [0..10^5] | Set(Intseq(n*&*Intseq(n))) eq Set(Intseq(n))]; // Bruno Berselli, Oct 09 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Derek Orr, Sep 30 2014
STATUS
approved