# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a162473
Showing 1-1 of 1

%I A162473 #28 Jun 15 2021 13:41:56
%S A162473 1,10,63,2340,23405,224694,2097151,2290649224,41231686041,
%T A162473 733007751850,12900936432571,225179981368524,3903119677054429,
%U A162473 67253754435399406,1152921504606846975,623961713349486025654800,21214698253882524872263217,718803893778607901554330194
%N A162473 Write n in binary n times and concatenate (see example). a(n) is the decimal equivalent.
%H A162473 Alois P. Heinz, <a href="/A162473/b162473.txt">Table of n, a(n) for n = 1..369</a>
%F A162473 a(n) = n * (2^(A070939(n)*n) - 1) / (2^(A070939(n)) - 1). - _Maxim Skorohodov_, Oct 26 2020
%e A162473 The binary representations of the first few terms are 1, 1010, 111111, 100100100100, 101101101101101.
%p A162473 A070939 := proc(n) max(1, ilog2(n)+1) ; end: A162473 := proc(n) local bid,a062383; bid := A070939(n) ; a062383 := 2^bid ; n*(a062383^n-1)/(a062383-1) ; end: seq(A162473(n),n=1..30) ; # _R. J. Mathar_, Jul 06 2009
%p A162473 # second Maple program:
%p A162473 a:= n-> Bits[Join](map(x-> x[], [Bits[Split](n)$n])):
%p A162473 seq(a(n), n=1..30);  # _Alois P. Heinz_, Oct 26 2020
%t A162473 Table[FromDigits[Flatten[Table[IntegerDigits[n,2],{n}]],2],{n,20}] (* _Harvey P. Dale_, Jun 15 2021 *)
%Y A162473 Cf. A007088, A070939, A162472.
%K A162473 base,nonn
%O A162473 1,2
%A A162473 _Leroy Quet_, Jul 04 2009
%E A162473 More terms from _R. J. Mathar_, Jul 06 2009

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE