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

1,1

Links

Table of n, a(n) for n=1..60.

Example

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

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

Prog

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

Crossrefs

Cf. A079399.

Sequence in context: A030711 A030761 A060903 * A156040 A325172 A365271

Adjacent sequences: A079398 A079399 A079400 * A079402 A079403 A079404

Keyword

nonn

Author

Jon Perry, Feb 16 2003

Status

approved