%I #7 Oct 12 2024 14:45:56
%S 22,32,48,36,38,34,52,54,50,20,2070,2080,2096,2084,2086,2082,2100,
%T 2102,2098,2068,3094,3104,3120,3108,3110,3106,3124,3126,3122,3092,
%U 2326,2336,2352,2340,2342,2338,2356,2358,2354,2324,2454,2464,2480,2468,2470,2466
%N Value of n written in Braille, seen as 2 X 3 bit-code: 1 for a raised dot and 0 for an empty dot position.
%C A000120(a(n)) = A079399(n).
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Braille">Braille</a>
%F a(n) = a(floor(n/10))*64 + a(n mod 10) for n>9.
%e ...... +-----+
%e n=0: . | _ . | -> (010)(110)
%e ...... | . . | .. -> 010110[bin] = 22 = a(0)
%e ...... | _ _ |
%e ...... +-----+
%e n=1: . | . _ | -> (100)(000)
%e ...... | _ _ | .. -> 100000[bin] = 32 = a(1)
%e ...... | _ _ |
%e ...... +-----+
%e n=2: . | . _ | -> (110)(000)
%e ...... | . _ | .. -> 110000[bin] = 48 = a(2)
%e ...... | _ _ |
%e ...... +-----+
%e n=3: . | . . | -> (100)(100)
%e ...... | _ _ | .. -> 100100[bin] = 36 = a(3)
%e ...... | _ _ |
%e ...... +-----+
%e n=4: . | . . | -> (100)(110)
%e ...... | _ . | .. -> 100110[bin] = 38 = a(4)
%e ...... | _ _ |
%e ...... +-----+
%e n=5: . | . _ | -> (100)(010)
%e ...... | _ . | .. -> 100100[bin] = 34 = a(5)
%e ...... | _ _ |
%e ...... +-----+
%e n=6: . | . . | -> (110)(100)
%e ...... | . _ | .. -> 111000[bin] = 52 = a(6)
%e ...... | _ _ |
%e ...... +-----+
%e n=7: . | . . | -> (110)(110)
%e ...... | . . | .. -> 110110[bin] = 54 = a(7)
%e ...... | _ _ |
%e ...... +-----+
%e n=8: . | . _ | -> (110)(010)
%e ...... | . . | .. -> 101100[bin] = 50 = a(8)
%e ...... | _ _ |
%e ...... +-----+
%e n=9: . | _ . | -> (010)(100)
%e ...... | . _ | .. -> 010100[bin] = 20 = a(9)
%e ...... | _ _ |
%e ...... +-----+.
%t a[0]=22; a[1]= 32; a[2]= 48; a[3]= 36; a[4]= 38; a[5]= 34; a[6]= 52; a[7]= 54; a[8]= 50; a[9]=20; a[n_]:=a[Floor[n/10]]*64+a[Mod[n, 10]]; Table[a[n], {n, 0, 45}] (* _James C. McMahon_, Oct 12 2024 *)
%Y Cf. A121018.
%K nonn,base
%O 0,1
%A _Reinhard Zumkeller_, Jul 23 2006