login
A162472
Rewrite n in binary with each digit occurring n times (see example). a(n) is the decimal equivalent.
2
1, 12, 63, 3840, 31775, 262080, 2097151, 4278190080, 68585259519, 1098438933504, 17583600304127, 281474959933440, 4503599560269823, 72057594037911552, 1152921504606846975, 1208907372870555465154560, 38685331079762954237902847, 1237935316918897473973125120
OFFSET
1,2
LINKS
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
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