This site is supported by donations 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 *) 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: A069437 A212934 A263168 * A084912 A217850 A023075 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 16 12:19 EDT 2019. Contains 325079 sequences. (Running on oeis4.)