|
%I #5 Aug 15 2016 12:25:15
%S 0,11,22,33,44,55,66,77,88,99,101,110,112,121,123,132,134,139,143,145,
%T 148,154,156,157,165,166,167,175,176,178,184,187,189,193,198,202,209,
%U 211,213,220,224,231,235,242,246,249,253,257,258,264,267,268,275,276
%N Numbers whose decimal digits can be permuted to give a multiple of 11.
%C a(k) = A064544(k) for k <= 263, a(263) = 1111. But the digits of the next biquam 1113 cannot be arranged to a multiple of 11. So we have a subset of those biquams, whose separating sets differ at most by 1 in size.
%t Select[Range[0,300],AnyTrue[FromDigits/@Permutations[ IntegerDigits[ #]], Divisible[ #,11]&]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 15 2016 *)
%K nonn,base
%O 0,2
%A _Reinhard Zumkeller_, Dec 02 2001
|
