%I #18 Mar 02 2021 06:21:21
%S 3,1,2,2,3,2,3,4,3,2,4,2,3,3,4,3,4,5,4,3,5,3,4,4,5,4,5,6,5,4,5,3,4,4,
%T 5,4,5,6,5,4,6,4,5,5,6,5,6,7,6,5,5,3,4,4,5,4,5,6,5,4,6,4,5,5,6,5,6,7,
%U 6,5,7,5,6,6,7,6,7,8,7,6,6,4,5,5,6,5,6,7,6,5,5,3,4,4,5,4,5,6,5,4
%N Number of dots in Braille representation of n.
%C The number of dots in [0..9] is [3,1,2,2,3,2,3,4,3,2].
%H American Foundation for the Blind, <a href="https://web.archive.org/web/20060613210351/https://www.afb.org/braillebug/braille_deciphering.asp">Braille Bug</a>
%H American Printing House for the Blind, <a href="https://braillebug.org/braille_deciphering.asp">Braille: Deciphering the Code</a>
%H RNIB, <a href="http://www.rnib.org.uk/wesupply/fctsheet/thisisbr.htm">This is Braille</a>
%F a(n) = A000120(A121018(n)) = A000120(A121019(n)). - _Reinhard Zumkeller_, Jul 23 2006
%e a(11) = 1+1 = 2.
%t 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_, May 24 2013 *)
%o (PARI) { braille=[3,1,2,2,3,2,3,4,3,2]; for (n=0,99, b=braille[n%10+1]; if (n>9,b=b+braille[n\10+1]); print1(b",")) }
%o (Python)
%o b = [3, 1, 2, 2, 3, 2, 3, 4, 3, 2]
%o def a(n): return sum(b[d] for d in map(int, str(n)))
%o print([a(n) for n in range(100)]) # _Michael S. Branicky_, Mar 01 2021
%Y See A072283 for another version. Cf. A079401, A079405.
%Y Cf. A000120, A121018, A121019.
%K nonn
%O 0,1
%A _Jon Perry_, Feb 16 2003