A101305 - OEIS

%I #28 Jun 28 2022 15:27:41

%S 0,10,10100,101001000,10100100010000,10100100010000100000,

%T 101001000100001000001000000,10100100010000100000100000010000000,

%U 10100100010000100000100000010000000100000000,101001000100001000001000000100000001000000001000000000

%N Begin with 0 and at each successive iteration append the next power of 10.

%H Harvey P. Dale, <a href="/A101305/b101305.txt">Table of n, a(n) for n = 0..43</a>

%e a(1) = 10;

%e a(2) = 10100 (concatenate 10 and 100);

%e a(3) = 101001000 (concatenate 10, 100 and 1000);

%e a(4) = 10100100010000.

%t f[n_] := FromDigits[ Flatten[ Table[ IntegerDigits[10^i], {i, n}]]]; Table[ f[n], {n, 8}] (* _Robert G. Wilson v_, Dec 22 2004 *)

%t nxt[{n_,a_}]:={n+1,FromDigits[Join[IntegerDigits[a],IntegerDigits[ 10^(n+1)]]]}; NestList[nxt,{0,0},10][[All,2]] (* _Harvey P. Dale_, Oct 26 2020 *)

%o (Python)

%o def a(n): return 0 if n==0 else int("".join("1"+"0"*(i+1) for i in range(n)))

%o print([a(n) for n in range(10)]) # _Michael S. Branicky_, Jun 28 2022

%Y Cf. A011557, A104462.

%K nonn,base

%O 0,2

%A _Jorge Coveiro_, Dec 22 2004

%E Edited by _Robert G. Wilson v_, Dec 22 2004