This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A107032 #15 May 08 2015 16:53:24 %S A107032 8,10,11,12,13,14,15,16,17,18,19,20,22,23,26,28,31,35,40,42,43,44,48, %T A107032 53,62,64,71,74,75,79,80,86,88,97,100,101,102,104,105,106,108,109,110, %U A107032 111,112,113,115,117,118,119,120,121,123,126,129,132,135,139,141,142,144 %N A107032 Belgian-8 numbers. %H A107032 Reinhard Zumkeller, <a href="/A107032/b107032.txt">Table of n, a(n) for n = 1..10000</a> %t A107032 belgianQ[n_, k_] := If[n < k, False, Block[{id = Join[{0}, IntegerDigits@ n]}, MemberQ[ Accumulate@ id, Mod[n - k, Plus @@ id]] ]]; Select[ Range@ 148, belgianQ[#, 8] &] (* _Robert G. Wilson v_, May 06 2011 *) %o A107032 (Haskell) %o A107032 a107032 n = a107032_list !! (n-1) %o A107032 a107032_list = filter belge8 [8..] where %o A107032 belge8 x = x == (head $ dropWhile (< x) $ %o A107032 scanl (+) 8 $ cycle (map (read . return) $ show x)) %o A107032 -- _Reinhard Zumkeller_, May 08 2015 %Y A107032 See A106039 for definition and link. %Y A107032 Belgian-k numbers, k=0..9: A106039, A106439, A106518, A106596, A106631, A106792, A107014, A107018, A107032, A107043. %Y A107032 Cf. A257770. %K A107032 base,easy,nonn %O A107032 1,1 %A A107032 _Eric Angelini_, Jun 07 2005 %E A107032 Offset changed by _Reinhard Zumkeller_, May 08 2015