A107062 - OEIS

%I #11 Feb 13 2014 08:34:14

%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 Belgian-k 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