A298849 Numbers n where d*n contains the digit d for all of d = 1,2,3,4,5,6,7,8,9.
1, 10, 11, 21, 31, 41, 51, 61, 71, 81, 91, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 121, 131, 141, 151, 161, 171, 181, 191, 201, 210, 211, 221, 231, 241, 251, 261, 271, 281, 291, 301, 310, 311, 321, 331, 341, 351, 361, 371, 381, 391, 401, 410, 411, 421
Offset: 1
Examples
12 times 5 = 60, which doesn't contain the digit 5; so 12 is not in this sequence.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A296606.
Programs
-
Maple
filter:= n -> andmap(d -> has(convert(d*n,base,10),d), [$1..9]): select(filter, [$1..1000]); # Robert Israel, Feb 27 2018
-
Mathematica
Select[Range[421], Function[n, NoneTrue[Range@ 9, FreeQ[IntegerDigits[n #], #] &]]] (* Michael De Vlieger, Jan 28 2018 *)
-
PARI
isok(n) = {for (d=1, 9, if (! vecsearch(Set(digits(d*n)), d), return (0));); return(1);} \\ Michel Marcus, Jan 27 2018
Extensions
More terms from Michel Marcus, Jan 27 2018
Comments