OFFSET
1,1
COMMENTS
All numbers n which are congruent to 0 (mod 6) have this characteristic.
All even n have this characteristic, because n == 6n mod 10. Robert Israel, Apr 17 2014
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
12 is in the sequence since 12 and 6*12 = 72 and together they share the digit 2.
MAPLE
N:= 10000; # to get all entries up to N
filter:= proc(n) local L, L6;
L:= convert(convert(n, base, 10), set);
L6:= convert(convert(6*n, base, 10), set);
L intersect L6 <> {};
end;
select(filter, [$1..N]); # Robert Israel, Apr 17 2014
MATHEMATICA
fQ[n_] := Intersection[ IntegerDigits[ n], IntegerDigits[6 n]] != {}; Select[ Range[ 100], fQ]
PROG
(PARI) isok(n) = #setintersect(Set(digits(n)), Set(digits(6*n))); \\ Michel Marcus, Apr 17 2014
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Robert G. Wilson v, Apr 16 2014
STATUS
approved