cp's OEIS Frontend

A257770 Table read by rows: numbers k, 0<=k<=9, such that n is a Belgian-k number.

%I A257770 #5 May 08 2015 16:54:45
%S A257770 0,0,1,0,2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,
%T A257770 5,6,7,8,9,0,2,3,5,6,8,9,0,1,4,5,8,9,3,4,8,9,2,3,8,9,1,2,8,9,0,1,8,9,
%U A257770 0,8,9,8,9,0,2,4,6,8,0,1,3,4,6,7,9,0
%N A257770 Table read by rows: numbers k, 0<=k<=9, such that n is a Belgian-k number.
%C A257770 See A106039 for definition of Belgian-k numbers;
%C A257770 T(n,0) = A257778(n); T(n,A257773(n)) = A257779(n);
%C A257770 m is a Belgian-0 number iff T(m,0) = 0.
%H A257770 Reinhard Zumkeller, <a href="/A257770/b257770.txt">Rows n = 0..1000 of triangle, flattened</a>
%e A257770 The first 100 rows:
%e A257770 .   0 | 0                     25 | 2,4,9       50 | 0,5     75 | 3,8
%e A257770 .   1 | 0,1                   26 | 0,2,8       51 | 3,4,9   76 | 4
%e A257770 .   2 | 0,2                   27 | 0,7,9       52 | 3,5     77 | 0,7
%e A257770 .   3 | 0,3                   28 | 6,8         53 | 0,5,8   78 | 3
%e A257770 .   4 | 0,4                   29 | 5,7         54 | 0,4,9   79 | 8
%e A257770 .   5 | 0,5                   30 | 0,3,6,9     55 | 0,5     80 | 0,8
%e A257770 .   6 | 0,6                   31 | 0,3,4,7,8   56 | 1,7     81 | 0,1,9
%e A257770 .   7 | 0,7                   32 | 2,4,7,9     57 | 4,9     82 | 2,4
%e A257770 .   8 | 0,8                   33 | 0,3,6,9     58 | 1,6     83 | 6,9
%e A257770 .   9 | 0,9                   34 | 3,6         59 | 3       84 | 0,4
%e A257770 .  10 | 0,1,2,3,4,5,6,7,8,9   35 | 0,3,8       60 | 0,6     85 | 7
%e A257770 .  11 | 0,1,2,3,4,5,6,7,8,9   36 | 0,6,9       61 | 5,6     86 | 2,8
%e A257770 .  12 | 0,2,3,5,6,8,9         37 | 4,7         62 | 0,6,8   87 | 4
%e A257770 .  13 | 0,1,4,5,8,9           38 | 2,5         63 | 0,3,9   88 | 0,8
%e A257770 .  14 | 3,4,8,9               39 | 0,3         64 | 4,8     89 | 4
%e A257770 .  15 | 2,3,8,9               40 | 0,4,8       65 | 4       90 | 0,9
%e A257770 .  16 | 1,2,8,9               41 | 1,2,6,7     66 | 0,6     91 | 1,2
%e A257770 .  17 | 0,1,8,9               42 | 0,2,6,8     67 | 2,9     92 | 4,6
%e A257770 .  18 | 0,8,9                 43 | 1,4,8       68 | 6       93 | 0,9
%e A257770 .  19 | 8,9                   44 | 0,4,8       69 | 3,9     94 | 3,7
%e A257770 .  20 | 0,2,4,6,8             45 | 0,5,9       70 | 0,7     95 | 2
%e A257770 .  21 | 0,1,3,4,6,7,9         46 | 2,6         71 | 0,7,8   96 | 6
%e A257770 .  22 | 0,2,4,6,8             47 | 3           72 | 0,2,9   97 | 1,8
%e A257770 .  23 | 1,3,6,8               48 | 0,8         73 | 3,6     98 | 4
%e A257770 .  24 | 0,4,6                 49 | 6           74 | 1,8     99 | 0,9  .
%o A257770 (Haskell)
%o A257770 a257770 n k = a257770_tabf !! n !! k
%o A257770 a257770_row n = filter belge [0..9] where
%o A257770    belge k = n == (head $ dropWhile (< n) $
%o A257770                   scanl (+) k $ cycle $ (map (read . return) . show) n)
%o A257770 a257770_tabf = map a257770_row [0..]
%Y A257770 Cf. A257773 (row lengths), A257778 (min per row), A257778 (max per row),
%Y A257770 Belgian-k numbers, k=0..9: A106039, A106439, A106518, A106596, A106631, A106792, A107014, A107018, A107032, A107043.
%K A257770 nonn,tabf,base
%O A257770 0,5
%A A257770 _Reinhard Zumkeller_, May 08 2015