%I#18 2024年2月11日11:14:44
%S 0,1,0,1,0,1,0,1,0,0,1,1,0,0,0,1,0,1,0,1,1,0,0,
%T 1,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,1,1,0,
%U 0,0,1,0,1,1,0,0,1,0,1,0,1,0,1,0,1,1,0,01,0,0,0,1,1,0,0,0
%如果第N个复数A002808(N)可被3整除,则为N 1,否则为0。
%C a(n)=1-A361122(n)。
%H Harvey P.Dale,n表,n=1..1000的a(n)</a>
%t使用[{nn=200},如果[Mod[#,3]==0,1,0]&/@Select[Range[nn],CompositeQ]](*哈维·P·戴尔,2024年2月11日*)
%Y参考A002808、A181923、A361121、A361122。
%K nonn公司
%O 1号机组
%A _斯科特·R·香农、Rémy Sigrist和N·J·A·斯隆,2023年3月4日
|