A249516 Numbers k for which the digital product A007954(k) contains the same distinct digits as the number k.

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

Author

Jaroslav Krizek, Oct 31 2014

Keywords

• nonn
• base
• easy

Examples

			1288 is a member since 1288 and its digital product 1*2*8*8 = 128 have the same digit set {1,2,8}.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A007954, A249515, A249517.

Programs

Magma

[0] cat [n: n in [0..100000] | Set(Intseq(n)) eq Set(Intseq(&*Intseq(n)))];

Mathematica

Select[Range[0,8000],Union[IntegerDigits[Times@@IntegerDigits[#]]] == Union[ IntegerDigits[#]]&] (* Harvey P. Dale, Aug 05 2018 *)

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