A107062 Union of set of Belgian-k numbers for k = 0..9 which begin with k.

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, 43, 44, 50, 52, 53, 55, 60, 61, 62, 66, 68, 70, 71, 77, 80, 86, 88, 90, 93, 99, 100, 101, 106, 110, 111, 113, 115, 121, 122, 130, 131, 137, 142, 155, 157, 161, 170, 171, 172, 178

Offset: 0

Author

Eric Angelini, Jun 07 2005

Keywords

• base
• easy
• nonn

Crossrefs

See A106039 for definition and link.

Cf. A106039, A106439, A106518, A106596, A106631, A106792, A107014, A107018, A107032, A107043, A107070.

Programs

Mathematica

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 *)