A162472 Rewrite n in binary with each digit occurring n times (see example). a(n) is the decimal equivalent.

1, 12, 63, 3840, 31775, 262080, 2097151, 4278190080, 68585259519, 1098438933504, 17583600304127, 281474959933440, 4503599560269823, 72057594037911552, 1152921504606846975, 1208907372870555465154560, 38685331079762954237902847, 1237935316918897473973125120

Offset

1,2

Links

Alois P. Heinz, Table of n, a(n) for n = 1..369

Example

The binary representation of the first few terms: 1, 1100, 111111, 111100000000, 111110000011111, 111111111111000000

Maple

a:= n-> Bits[Join](map(x-> x$n, Bits[Split](n))):
seq(a(n), n=1..20);  # Alois P. Heinz, Oct 26 2020

Mathematica

f[n_] := FromDigits[ Flatten[ Table[ #, {n}] & /@ IntegerDigits[n, 2]], 2]; Array[ f, 16] (* Robert G. Wilson v, Aug 17 2009 *)

Crossrefs

Cf. A162473.

Sequence in context: A027810 A012875 A275404 * A008425 A154507 A105916

Adjacent sequences: A162469 A162470 A162471 * A162473 A162474 A162475

Keyword

base,nonn

Author

Leroy Quet, Jul 04 2009

Extensions

a(6) and further terms from Robert G. Wilson v, Aug 17 2009

Status

approved