The submissions stack has been unacceptably high for several months now. Please voluntarily restrict your submissions and please help with the editing. (We don't want to have to impose further limits.)
Table of n, a(n) for n=1..83.
a(5)=6 since A077722(5)=32833, which has an octal form of 100101 (6 digits).
s := 0:for n from 1 to 7000 do b := convert(n, base, 2): q := sum(b[i]*8^(i-1), i=1..nops(b)): if(isprime(q)) then s := s+1:a[s] := nops(b):fi: od:seq(a[k], k=1..s);
Sequence in context: A204002 A198300 A054760 * A205837 A257923 A023963
Adjacent sequences: A079104 A079105 A079106 * A079108 A079109 A079110
Francois Jooste (phukraut(AT)hotmail.com), Dec 23 2002
More terms from Sascha Kurz, Feb 10 2003