cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A082482 a(n) = floor of (2^n-1)/n.

Original entry on oeis.org

1, 1, 2, 3, 6, 10, 18, 31, 56, 102, 186, 341, 630, 1170, 2184, 4095, 7710, 14563, 27594, 52428, 99864, 190650, 364722, 699050, 1342177, 2581110, 4971026, 9586980, 18512790, 35791394, 69273666, 134217727, 260301048, 505290270, 981706810
Offset: 1

Views

Author

Jon Perry, Apr 27 2003

Keywords

Comments

a(n) is the largest exponent k such that (2^n)^k || (2^n)!. - Lekraj Beedassy, Jan 15 2024

Examples

			a(3) = floor((2^3-1)/3) = floor(7/3) = floor(2.333) = 2.
		

Crossrefs

a(n) = A053638(n) - 1.

Programs

  • Maple
    seq(floor((2^n-1)/n), n=1..100); # Robert Israel, Dec 01 2016
  • PARI
    for (n=1,50,print1(floor((2^n-1)/n)","))

Formula

a(n) = (2^n - 1 - A082495(n))/n = A162214(n)/n. - Robert Israel, Dec 01 2016

A162213 a(n) = the smallest positive multiple of n with exactly n digits when written in binary.

Original entry on oeis.org

1, 2, 6, 8, 20, 36, 70, 128, 261, 520, 1034, 2052, 4108, 8204, 16395, 32768, 65552, 131076, 262162, 524300, 1048593, 2097172, 4194326, 8388624, 16777225, 33554456, 67108878, 134217748, 268435484, 536870940, 1073741854, 2147483648
Offset: 1

Views

Author

Leroy Quet, Jun 28 2009

Keywords

Crossrefs

Programs

  • Maple
    a := proc (n) local k: for k while nops(convert(k*n, base, 2)) <> n do end do; k*n end proc: seq(a(n), n = 1 .. 24); # Emeric Deutsch, Jul 10 2009
    a:= n-> n*ceil(2^(n-1)/n): seq(a(n), n=1..40); # Alois P. Heinz, Jul 11 2009
  • Mathematica
    Array[# Ceiling[2^(# - 1)/#] &, 32] (* Michael De Vlieger, Nov 04 2017 *)

Formula

a(n) = n * ceiling(2^(n-1)/n). - Alois P. Heinz, Jul 11 2009

Extensions

More terms from Emeric Deutsch and Alois P. Heinz, Jul 11 2009
Showing 1-2 of 2 results.