%I#13 2022年3月16日03:18:28
%S 14,17,19,77,89,94,95,97127134147149164169177184190,
%电话:1941951971992092152172272392442447764767769827839,
%电话:84484584787788488999149179199259349494094494959967977989995997125912641267
%N数k,使4*k的非零数字除以4*k。
%e a(1)=14和4*14=56不能被5或6整除;
%e a(2)=17和4*17=68不能被6或8整除;
%e a(3)=19和4*19=76不能被7或6整除;
%e a(4)=77和4*77=308不能被3、0或8整除;等。
%e 26不在序列中,因为4×26=104可被1(和4)整除。
%t q[n_]:=AllTrue[Integer Digits[4*n],#==0||!可分割[4*n,#]&];选择[范围[1270],q](*_Amiram Eldar_,2022年3月14日*)
%o(Python)
%o def ok(n):如果d!=',则不返回任何(4*n%int(d)==集合中d的0(str(4*n))0')
%o打印([k代表范围(1978)中的k,如果可以(k)])#_Michael S.Branicky_,2022年3月14日
%Y参见A038772、A352379、A352380、A352382。
%K基,nonn
%O 1,1
%A _Eric Angelini和Carole Dubois,2022年3月14日
|