A386552 Concatenate powers of 10.
1, 110, 110100, 1101001000, 110100100010000, 110100100010000100000, 1101001000100001000001000000, 110100100010000100000100000010000000, 110100100010000100000100000010000000100000000, 1101001000100001000001000000100000001000000001000000000
Offset: 0
Links
- Jason Bard, Table of n, a(n) for n = 0..43
Crossrefs
Programs
-
Maple
a:= proc(n) option remember; `if`(n<0, 0, parse(cat(a(n-1), 10^n))) end: seq(a(n), n=0..10); # Alois P. Heinz, Jul 28 2025 -
Mathematica
a[0] = 1; a[n_] := a[n - 1]*10^(n+1) + 10^n; Table[a[n], {n, 0, 9}] -
Python
def A386552(n): return 10**n*sum(10**(k*((n<<1)-k+1)>>1) for k in range(n+1)) # Chai Wah Wu, Aug 05 2025
Comments