login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

N. J. A. Sloane

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 17 05:57 EDT 2018. Contains 316275 sequences. (Running on oeis4.)