[go: up one dir, main page]

login
A101305
Begin with 0 and at each successive iteration append the next power of 10.
2
0, 10, 10100, 101001000, 10100100010000, 10100100010000100000, 101001000100001000001000000, 10100100010000100000100000010000000, 10100100010000100000100000010000000100000000, 101001000100001000001000000100000001000000001000000000
OFFSET
0,2
LINKS
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
Sequence in context: A327232 A266841 A267677 * A001098 A266872 A267705
KEYWORD
nonn,base
AUTHOR
Jorge Coveiro, Dec 22 2004
EXTENSIONS
Edited by Robert G. Wilson v, Dec 22 2004
STATUS
approved