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
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