%I #11 Nov 26 2015 00:21:09
%S 3,13,15168688709231,485398038695407,7952761465985556761,
%T 1093019213097503446341283921459,
%U 86134299614492097006118364066622168655354924541642968442774111281671429433861154475887035336602787171493636213948843751229781471990372187234719413
%N Prime numbers in A055143.
%C Next terms have 145, 196, 242, 519, ... digits.
%e Base 2: 1,10,11,100,101,110,111,1000,...; first 2 digits: 11 -> 3; first 4 digits: 1101 -> 13.
%p P:=proc(i) local a,b,j,k,len,n; j:=0; for n from 1 by 1 to i do a:=convert(n,binary); len:=length(a); while len>0 do len:=len-1; b:=trunc(10*frac(trunc(a/10^len)/10)); j:=j*10; if b=1 then j:=j+1; k:=convert(j,decimal,binary); if isprime(k) then print(k); fi; fi; od; od; end: P(500);
%K nonn,base
%O 1,1
%A _Paolo P. Lava_ & _Giorgio Balzarotti_, Mar 16 2010