login
A249516
Numbers n for which the digital product A007954(n) contains the same distinct digits as the number n.
3
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 111, 1111, 1288, 1557, 1575, 1755, 1828, 1882, 2188, 2818, 2881, 3448, 3484, 3577, 3757, 3775, 3844, 4348, 4384, 4438, 4483, 4834, 4843, 5157, 5175, 5377, 5517, 5571, 5715, 5737, 5751, 5773, 7155, 7357, 7375, 7515, 7537, 7551
OFFSET
1,3
LINKS
EXAMPLE
1288 is a member since 1288 and its digital product 1*2*8*8 = 128 have the same digit set {1,2,8}.
MATHEMATICA
Select[Range[0, 8000], Union[IntegerDigits[Times@@IntegerDigits[#]]] == Union[ IntegerDigits[#]]&] (* Harvey P. Dale, Aug 05 2018 *)
PROG
(Magma) [n: n in [0..100000] | Set(Intseq(n)) eq Set(Intseq(&*Intseq(n)))]
(PARI) print1(0, ", "); for(n=1, 10^4, d=digits(n); p=prod(i=1, #d, d[i]); if(vecsort(digits(p), , 8)==vecsort(d, , 8), print1(n, ", "))) \\ Derek Orr, Nov 05 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jaroslav Krizek, Oct 31 2014
STATUS
approved