A175541 A007505 in binary.
10, 101, 1011, 10111, 101111, 10111111, 101111111, 1011111111111, 10111111111111111111, 101111111111111111111111111111111111, 1011111111111111111111111111111111111111
Offset: 1
Examples
a(12)=101111111111111111111111111111111111111111111.
Programs
-
Mathematica
FromDigits/@Select[Table[PadRight[{1,0},n,1],{n,0,50}], PrimeQ[ FromDigits[ #,2]]&] (* Harvey P. Dale, Nov 12 2011 *)
Comments