A079401 Partial sums of A079399.

3, 4, 6, 8, 11, 13, 16, 20, 23, 25, 29, 31, 34, 37, 41, 44, 48, 53, 57, 60, 65, 68, 72, 76, 81, 85, 90, 96, 101, 105, 110, 113, 117, 121, 126, 130, 135, 141, 146, 150, 156, 160, 165, 170, 176, 181, 187, 194, 200, 205, 210, 213, 217, 221, 226, 230, 235, 241, 246, 250

Offset: 0

Author

Jon Perry, Feb 16 2003

Keywords

• nonn

Examples

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

Crossrefs

Cf. A079399.

Programs

Mathematica

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 *)

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",")) }

Extensions

Offset corrected by Sean A. Irvine, Aug 12 2025