A129848 Numbers n such that n and 4n share at least one digit.

10, 16, 20, 23, 28, 30, 31, 32, 33, 34, 40, 41, 46, 49, 50, 52, 60, 62, 64, 65, 66, 67, 69, 70, 72, 80, 82, 83, 87, 90, 93, 98, 99, 100, 101, 102, 103, 104, 105, 110, 114, 116, 120, 123, 124, 125, 128, 129, 130, 132, 133, 134, 135, 140, 141, 145, 146, 149, 150, 153

Offset

1,1

Links

Table of n, a(n) for n=1..60.

Maple

a:=proc(n) if nops(convert(convert(n, base, 10), set) intersect convert(convert(4*n, base, 10), set))>0 then n else fi end: seq(a(n), n=1..180); # Emeric Deutsch, May 27 2007

Mathematica

Select[Range[300], Length[Intersection[IntegerDigits[ # ], IntegerDigits[4*# ]]]> 0 &] (* Stefan Steinerberger, May 24 2007 *)

Crossrefs

Sequence in context: A233579 A291639 A004260 * A004261 A083118 A238204

Adjacent sequences: A129845 A129846 A129847 * A129849 A129850 A129851

Keyword

base,easy,nonn

Author

Eric Angelini, May 22 2007

Extensions

More terms from Stefan Steinerberger and Emeric Deutsch, May 24 2007

Status

approved