Skip to main content
Mathematica

Return to Answer

added 1 character in body
Source Link
asad
asad
  • 848
  • 5
  • 13

Using MemberQ I wrote the following code and it worked:

A1={2};
A2={3,5,6};
A3={7,8,10}
Union[Flatten[Table[If[(MemberQ[A1,Mod[i,3]]==True
||MemberQ[A2,Mod[i,7]]==True||MemberQ[A3,Mod[i,1]]==True11]]==True),i,0], 
{i,1,100}]]]

Using MemberQ I wrote the following code and it worked:

A1={2};
A2={3,5,6};
A3={7,8,10}
Union[Flatten[Table[If[(MemberQ[A1,Mod[i,3]]==True
||MemberQ[A2,Mod[i,7]]==True||MemberQ[A3,Mod[i,1]]==True),i,0], 
{i,1,100}]]]

Using MemberQ I wrote the following code and it worked:

A1={2};
A2={3,5,6};
A3={7,8,10}
Union[Flatten[Table[If[(MemberQ[A1,Mod[i,3]]==True
||MemberQ[A2,Mod[i,7]]==True||MemberQ[A3,Mod[i,11]]==True),i,0], 
{i,1,100}]]]
deleted 3 characters in body
Source Link
user9660
user9660

Using MemberQ I wrote the following code and it worked:

    A1={2};
    A2={3,5,6};
    A3={7,8,10}
    Union[Flatten[Table[If[(MemberQ[A1,Mod[i,3]]==True||MemberQ[A23]]==True
||MemberQ[A2,Mod[i,7]]==True||MemberQ[A3,Mod[i,1]]==True),i,0], 
{i,1,100}]]]

Using MemberQ I wrote the following code and it worked:

    A1={2};
    A2={3,5,6};
    A3={7,8,10}
    Union[Flatten[Table[If[(MemberQ[A1,Mod[i,3]]==True||MemberQ[A2,Mod[i,7]]==True||MemberQ[A3,Mod[i,1]]==True),i,0],{i,1,100}]]]

Using MemberQ I wrote the following code and it worked:

A1={2};
A2={3,5,6};
A3={7,8,10}
Union[Flatten[Table[If[(MemberQ[A1,Mod[i,3]]==True
||MemberQ[A2,Mod[i,7]]==True||MemberQ[A3,Mod[i,1]]==True),i,0], 
{i,1,100}]]]
Source Link
asad
asad
  • 848
  • 5
  • 13

Using MemberQ I wrote the following code and it worked:

    A1={2};
    A2={3,5,6};
    A3={7,8,10}
    Union[Flatten[Table[If[(MemberQ[A1,Mod[i,3]]==True||MemberQ[A2,Mod[i,7]]==True||MemberQ[A3,Mod[i,1]]==True),i,0],{i,1,100}]]]