cp's OEIS Frontend

A079399 Number of dots in Braille representation of n.

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