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

License Agreements, Terms of Use, Privacy Policy. .

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