|
| |
|
|
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
|
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
|
| |
|
|
