%I #14 Oct 26 2020 20:36:24
%S 1,12,63,3840,31775,262080,2097151,4278190080,68585259519,
%T 1098438933504,17583600304127,281474959933440,4503599560269823,
%U 72057594037911552,1152921504606846975,1208907372870555465154560,38685331079762954237902847,1237935316918897473973125120
%N Rewrite n in binary with each digit occurring n times (see example). a(n) is the decimal equivalent.
%H Alois P. Heinz, <a href="/A162472/b162472.txt">Table of n, a(n) for n = 1..369</a>
%e The binary representation of the first few terms: 1, 1100, 111111, 111100000000, 111110000011111, 111111111111000000
%p a:= n-> Bits[Join](map(x-> x$n, Bits[Split](n))):
%p seq(a(n), n=1..20); # _Alois P. Heinz_, Oct 26 2020
%t f[n_] := FromDigits[ Flatten[ Table[ #, {n}] & /@ IntegerDigits[n, 2]], 2]; Array[ f, 16] (* _Robert G. Wilson v_, Aug 17 2009 *)
%Y Cf. A162473.
%K base,nonn
%O 1,2
%A _Leroy Quet_, Jul 04 2009
%E a(6) and further terms from _Robert G. Wilson v_, Aug 17 2009