|
|
A238365
|
|
Number of dots needed to express n as a Roman numeral in Braille.
|
|
0
|
|
|
2, 4, 6, 6, 4, 6, 8, 10, 6, 4, 6, 8, 10, 10, 8, 10, 12, 14, 10, 8, 10, 12, 14, 14, 12, 14, 16, 18, 14, 12, 14, 16, 18, 18, 16, 18, 20, 22, 18, 7, 9, 11, 13, 13, 11, 13, 15, 17, 13, 3, 5, 7, 9, 9, 7, 9, 11, 13, 9, 7, 9, 11, 13, 13, 11, 13, 15, 17, 13, 11, 13, 15
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
VII in Braille (with the "Roman num" character):
o o o o
o o o
o o o
Therefore a(7) = 10 - 2 = 8.
|
|
PROG
|
(PARI) a=[2, 4, 6, 6, 4, 6, 8, 10, 6, 0]; b=[0, 4, 8, 12, 7, 3, 7, 11, 15, 6]; for(n=1, 72, if(n<100, print1(a[lift(Mod(n-1, 10))+1]+b[floor(n/10)+1], ", "), break));
(PARI)
/* The program works for n < 40 */
b=0; for(n=1, 39, if(Mod(n, 10)==0, b=b+4); m=lift(Mod(n, 10)); a=2*m-6; if(Mod(m, 5)==4, d=abs(a-7)+b+1, if(m<4, d=a+b+6, d=a+b)); print1(d, ", "));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,word,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|