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
Examples
a(1) = 10; a(2) = 10100 (concatenate 10 and 100); a(3) = 101001000 (concatenate 10, 100 and 1000); a(4) = 10100100010000.
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..43
Programs
-
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 *) -
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 -
Python
def A101305(n): return 10**n*sum(10**(k*((n<<1)-k+1)>>1) for k in range(n)) # Chai Wah Wu, Aug 05 2025
Extensions
Edited by Robert G. Wilson v, Dec 22 2004