|
| |
|
|
A030001
|
|
Smallest power of 2 whose decimal expansion contains n.
|
|
15
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
MATHEMATICA
| a[n_] := (k = 0; While[ !MatchQ[ IntegerDigits[2^k], {___, Sequence @@ IntegerDigits[n], ___}], k++]; 2^k); Table[a[n], {n, 1, 30}](* From 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.
Cf. A000079.
Sequence in context: A197320 A004072 A113030 * A018802 A166487 A004842
Adjacent sequences: A029998 A029999 A030000 * A030002 A030003 A030004
|
|
|
KEYWORD
| nonn,base,nice
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
|
|
EXTENSIONS
| a(30) corrected by Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Nov 02 2011
|
| |
|
|
