This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A129848 #6 Sep 16 2015 04:36:55 %S A129848 10,16,20,23,28,30,31,32,33,34,40,41,46,49,50,52,60,62,64,65,66,67,69, %T A129848 70,72,80,82,83,87,90,93,98,99,100,101,102,103,104,105,110,114,116, %U A129848 120,123,124,125,128,129,130,132,133,134,135,140,141,145,146,149,150,153 %N A129848 Numbers n such that n and 4n share at least one digit. %p A129848 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 %t A129848 Select[Range[300],Length[Intersection[IntegerDigits[ # ],IntegerDigits[4*# ]]]> 0 &] (* _Stefan Steinerberger_, May 24 2007 *) %K A129848 base,easy,nonn %O A129848 1,1 %A A129848 _Eric Angelini_, May 22 2007 %E A129848 More terms from _Stefan Steinerberger_ and _Emeric Deutsch_, May 24 2007