A363271 Vertical sum of n in base 10.
1, 2, 3, 4, 5, 6, 7, 8, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 6, 7, 8, 9, 10, 11, 12
Offset: 1
Examples
The original sequence is 1 2 3 4 5 6 7 8 9 10 11 12 ... but when we sum digit per digit (in base 10) the sequence is not a rational fraction.
Programs
-
Maple
p:=proc(v) local n, aa, nn, s, k, t; aa := v; nn := nops(aa); s := [seq(1 + aa[k]/10^k, k = 1 .. nops(aa))]; [seq(sum(trunc(10*frac(10^t*s[k])), k = 1 .. nops(aa)), t = 0 .. nops(aa))] end; # enter a sequence like a(n) = [1, 2, 3, 4, ...] it will return a sequence r such that sum(r(n)/10^n) is equal to sum(a(n)/10^n).
Comments