cp's OEIS Frontend

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.

A038365 Numbers n with property that digits of n are not present in 2n.

This page as a plain text file.
%I A038365 #14 Nov 21 2013 12:46:44
%S A038365 1,2,3,4,5,6,7,8,9,11,13,14,15,16,17,18,19,22,23,27,28,29,31,32,33,34,
%T A038365 35,36,38,39,41,43,44,45,46,48,52,53,54,55,56,57,58,59,64,65,66,67,69,
%U A038365 72,73,76,77,78,79,82,83,85,86,88,92,93,94,111,113,114,115,116,117,118
%N A038365 Numbers n with property that digits of n are not present in 2n.
%C A038365 207 is the smallest number containing a zero, cf. A192825. [_Reinhard Zumkeller_, Aug 09 2011]
%H A038365 T. D. Noe, <a href="/A038365/b038365.txt">Table of n, a(n) for n=1..2000</a>
%e A038365 36 is in the list since 2*36=72, which shares no digit with 36.
%t A038365 Select[Range[140],Intersection[IntegerDigits[2 #], IntegerDigits[#]] =={}&]  (* _Harvey P. Dale_, Apr 30 2011 *)
%o A038365 (Haskell)
%o A038365 import Data.List (intersect)
%o A038365 a038365 n = a038365_list !! (n-1)
%o A038365 a038365_list = filter (\x -> null (show (2*x) `intersect` show x)) [1..]
%o A038365 -- _Reinhard Zumkeller_, Aug 09 2011
%Y A038365 Cf. A129845 (complement).
%K A038365 nonn,easy,base,nice
%O A038365 1,2
%A A038365 _Erich Friedman_