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

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

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

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

Cf. A007954, A249515, A249517.

Sequence in context: A229623 A277856 A117057 * A239090 A248889 A029967

Adjacent sequences: A249513 A249514 A249515 * A249517 A249518 A249519

Keyword

nonn,base,easy

Author

Jaroslav Krizek, Oct 31 2014

Status

approved