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

0, 10, 10100, 101001000, 10100100010000, 10100100010000100000, 101001000100001000001000000, 10100100010000100000100000010000000, 10100100010000100000100000010000000100000000, 101001000100001000001000000100000001000000001000000000

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..43

Example

a(1) = 10;
a(2) = 10100 (concatenate 10 and 100);
a(3) = 101001000 (concatenate 10, 100 and 1000);
a(4) = 10100100010000.

Mathematica

f[n_] := FromDigits[ Flatten[ Table[ IntegerDigits[10^i], {i, n}]]]; Table[ f[n], {n, 8}] (* Robert G. Wilson v, Dec 22 2004 *)
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 *)

Prog

(Python)
def a(n): return 0 if n==0 else int("".join("1"+"0"*(i+1) for i in range(n)))
print([a(n) for n in range(10)]) # Michael S. Branicky, Jun 28 2022

Crossrefs

Cf. A011557, A104462.

Sequence in context: A327232 A266841 A267677 * A001098 A266872 A267705

Adjacent sequences: A101302 A101303 A101304 * A101306 A101307 A101308

Keyword

nonn,base

Author

Jorge Coveiro, Dec 22 2004

Extensions

Edited by Robert G. Wilson v, Dec 22 2004

Status

approved