The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A030001 Smallest power of 2 whose decimal expansion contains n. 17
 1024, 1, 2, 32, 4, 256, 16, 32768, 8, 4096, 1024, 1099511627776, 128, 131072, 262144, 2097152, 16, 134217728, 1073741824, 8192, 2048, 262144, 8796093022208, 2199023255552, 1024, 256, 262144, 32768, 128, 4294967296, 4194304 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 0..10000 MAPLE P:=proc(q, h) local a, b, j, n; for n from 0 to q do a:=convert(n, string); for j from 0 to q do if searchtext(a, convert(h^j, string))>0 then print(h^j); break; fi; od; od; end: P(10^6, 2); # Paolo P. Lava, Aug 23 2018 MATHEMATICA a[n_] := (k = 0; While[ !MatchQ[ IntegerDigits[2^k], {___, Sequence @@ IntegerDigits[n], ___}], k++]; 2^k); Table[a[n], {n, 1, 30}](* Jean-François Alcover, Nov 30 2011 *) Module[{p2=2^Range[0, 50]}, Table[SelectFirst[p2, SequenceCount[ IntegerDigits[ #], IntegerDigits[ n]]>0&], {n, 0, 40}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 13 2019 *) PROG (Haskell) import Data.List (isInfixOf) a030001 n = head \$ filter ((show n `isInfixOf`) . show) a000079_list -- Reinhard Zumkeller, Nov 02 2011 CROSSREFS Cf. A030000 (the exponents), A000079. Sequence in context: A212934 A263168 A336779 * A351262 A336778 A084912 Adjacent sequences:  A029998 A029999 A030000 * A030002 A030003 A030004 KEYWORD nonn,base,nice,look AUTHOR EXTENSIONS a(30) corrected by Reinhard Zumkeller, Nov 02 2011 a(0) added by N. J. A. Sloane, Jul 04 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 24 04:22 EDT 2022. Contains 354005 sequences. (Running on oeis4.)