login
Partial sums of A079399.
1

%I #8 Jun 09 2023 23:07:09

%S 3,4,6,8,11,13,16,20,23,25,29,31,34,37,41,44,48,53,57,60,65,68,72,76,

%T 81,85,90,96,101,105,110,113,117,121,126,130,135,141,146,150,156,160,

%U 165,170,176,181,187,194,200,205,210,213,217,221,226,230,235,241,246,250

%N Partial sums of A079399.

%e a(3) = 3+1+2 = 6.

%t Accumulate[With[{br=Thread[Range[0,9]->{3,1,2,2,3,2,3,4,3,2}]}, Total/@ Table[ IntegerDigits[n]/.br,{n,0,100}]]] (* _Harvey P. Dale_, Aug 08 2016 *)

%o (PARI) { braille=[3,1,2,2,3,2,3,4,3,2]; bs=0; for (n=0,99, b=braille[n%10+1]; if (n>9,b=b+braille[n\10+1]); bs=bs+b; print1(bs",")) }

%Y Cf. A079399.

%K nonn

%O 1,1

%A _Jon Perry_, Feb 16 2003