A128093 a(n) = smallest multiple of n which is >= 2^n.

2, 4, 9, 16, 35, 66, 133, 256, 513, 1030, 2057, 4104, 8203, 16394, 32775, 65536, 131087, 262152, 524305, 1048580, 2097165, 4194322, 8388629, 16777224, 33554450, 67108886, 134217729, 268435468, 536870939, 1073741850, 2147483677

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

a(n) = n * ceiling(2^n/n) = n * A053638(n).

Mathematica

f[n_] := n*Ceiling[2^n/n]; Array[f, 33] (* Ray Chandler, Feb 19 2007 *)

Prog

(Python)
def A128093(n): return (m:=1<<n)+(n-k if (k:=m%n) else -k) # Chai Wah Wu, Aug 24 2023

Crossrefs

Cf. A128092, A053638.

Sequence in context: A062791 A203320 A005980 * A056331 A056336 A203318

Adjacent sequences: A128090 A128091 A128092 * A128094 A128095 A128096

Keyword

nonn

Author

Leroy Quet, Feb 14 2007

Extensions

Extended by Ray Chandler, Feb 19 2007

Status

approved