The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Jul 09 2018 21:22:20
%S 13,31,1133,1313,1331,3113,3131,3311,111333,113133,113313,113331,
%T 131133,131313,131331,133113,133131,133311,311133,311313,311331,
%U 313113,313131,313311,331113,331131,331311,333111
%N List of words over {1,3} with equal numbers of 1's and 3's.
%C This is to 3 as A214218 is to 2. The subsequence of primes (when interpreted as decimal integers) is A087511.
%H Robert Israel, <a href="/A214488/b214488.txt">Table of n, a(n) for n = 1..10000</a>
%p sort([seq(seq((10^(2*d)-1)/9+2*add(10^i, i=s), s=combinat:-choose([$0..(2*d-1)], d)), d=1..4)]); # _Robert Israel_, Jul 09 2018
%t Flatten[Table[Sort[FromDigits/@Permutations[PadRight[{},2n,{1,3}]]], {n,3}]] (* _Harvey P. Dale_, Aug 03 2014 *)
%Y Cf. A214218.
%K nonn,base,easy
%O 1,1
%A _Jonathan Vos Post_, Jul 18 2012