[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A079405
Number of dots in primes in Braille.
1
2, 2, 2, 4, 2, 3, 5, 3, 4, 4, 3, 6, 4, 5, 7, 4, 4, 4, 7, 5, 6, 6, 5, 5, 6, 5, 6, 8, 6, 4, 7, 4, 7, 5, 6, 4, 7, 6, 8, 7, 7, 5, 4, 5, 7, 5, 4, 6, 8, 6, 6, 6, 6, 5, 8, 7, 7, 7, 10, 6, 7, 6, 9, 4, 5, 7, 5, 8, 9, 7, 6, 6, 9, 8, 8, 7, 7, 8, 7, 8, 6, 6, 6, 7, 7, 8, 8, 9, 7, 8, 10, 9, 10, 6, 7, 7, 7, 5, 6, 6, 9, 8, 7, 7
OFFSET
0,1
LINKS
American Foundation for the Blind, Braille Bug
EXAMPLE
The 5th prime is 11, hence a(11)=1+1=2
PROG
(PARI) { braille=[3, 1, 2, 2, 3, 2, 3, 4, 3, 2]; forprime (n=2, 300, b=braille[n%10+1]; n2=n; if (n>99, b=b+braille[n\100+1]; n2=n%100); if (n2>9, b=b+braille[n2\10+1]); print1(b", ")) }
(PARI) { braille=[3, 1, 2, 2, 3, 2, 3, 4, 3, 2]; forprime (n=2, 300, n2=n; b=0; while (n2>0, b=b+braille[n2%10+1]; n2=n2\10); print1(b", ")) } \\ Sean A. Irvine, Feb 04 2010
CROSSREFS
Sequence in context: A181019 A066761 A108920 * A332347 A201353 A072048
KEYWORD
nonn
AUTHOR
Jon Perry, Feb 16 2003
EXTENSIONS
Corrected and extended by Sean A. Irvine, Feb 04 2010
STATUS
approved