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,3

Links

Table of n, a(n) for n=0..65.

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

Crossrefs

See A106039 for definition and link.

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

Sequence in context: A371421 A344974 A371022 * A178538 A332166 A017904

Adjacent sequences: A107059 A107060 A107061 * A107063 A107064 A107065

Keyword

base,easy,nonn

Author

Eric Angelini, Jun 07 2005

Status

approved