%I
%S 0,1,2,3,4,5,6,7,8,9,10,11,13,16,17,20,22,25,26,30,31,33,34,35,39,40,
%T 43,44,50,52,53,55,60,61,62,66,68,70,71,77,80,86,88,90,93,99,100,101,
%U 106,110,111,113,115,121,122,130,131,137,142,155,157,161,170,171,172,178
%N Union of set of Belgiank numbers for k = 0..9 which begin with k.
%t belgianKQ[n_] := Block[{id = Join[{0}, IntegerDigits@ n]}, MemberQ[ Accumulate@ id, Mod[n  id[[2]], Plus @@ id]]]; Select[ Range@ 178, belgianKQ] (* _Robert G. Wilson v_, May 06 2011 *)
%Y See A106039 for definition and link.
%Y Cf. A106039, A106439, A106518, A106596, A106631, A106792, A107014, A107018, A107032, A107043, A107070.
%K base,easy,nonn
%O 0,3
%A _Eric Angelini_, Jun 07 2005
