%I#15 2015年5月8日16:51:29
%S 5,10,11,12,13,29,38,45,50,52,53,55,611001010211011114120,
%电话:121124125130131132134135136137139140145148150151,
%U 160174175182186191195211电话
%N比利时-5号。
%H Reinhard Zumkeller,<a href=“/A106792/b106792.txt”>n的表,a(n)表示n=1.-10000</a>
%t比利时Q[n_,k_]:=如果[n<k,False,Block[{id=Join[{0},IntegerDigits@n]},MemberQ[Accumulate@id,Mod[n-k,Plus@@id]]];选择[Range@211,belgianQ[#,5]&](*_Robert G.Wilson v_,2011年5月6日*)
%o(哈斯克尔)
%o a106792 n=a106792_list!!(n-1)
%o a106792_list=过滤器bel5[5..],其中
%o belge5 x=x==(头部$dropWhile(<x)$
%o扫描(+)5$cycle((map(read.return))。显示)x))
%o--_Reinhard Zumkeller_,2015年5月8日
%Y有关定义和链接,请参见A106039。
%Y比利时-k数字,k=0..9:A106039,A106439,A105518,A106596,A106631,A106792,A107014,A1070118,A107032,A1007043。
%Y参考A257770。
%K基础,简单,无
%O 1,1
%A _Eric Angelini,2005年6月7日
%E偏移由Reinhard Zumkeller_于2015年5月8日更改
|