|
%I #4 Feb 05 2017 11:59:51
%S 110011,111000111,111110000011111,111111100000001111111,
%T 111111111110000000000011111111111,
%U 111111111111100000000000001111111111111
%N Concatenation of p digits 1, p digits 0 and p digits 1, where p is the n-th prime.
%t Table[FromDigits[Join[PadRight[{},n,1],PadRight[{},n,0],PadRight[{},n,1]]],{n,Prime[Range[7]]}] (* _Harvey P. Dale_, Feb 05 2017 *)
%Y Cf. A000040, A138149, A138721.
%K base,easy,nonn
%O 1,1
%A _Omar E. Pol_, Mar 29 2008
|
