Skip to main content
added 38 characters in body
Source Link
cvgmt
  • 84.1k
  • 6
  • 97
  • 179
Simplify[Mod[FromDigits[{a, b, a, b, a, b}], 7]==0, {a, b} ∈ 
  PositiveIntegers]

True

BTW,{a, b} ∈ Integers also work.

Simplify[Mod[FromDigits[{a, b, a, b, a, b}], 7]==0, {a, b} ∈ 
  PositiveIntegers]

True

Simplify[Mod[FromDigits[{a, b, a, b, a, b}], 7]==0, {a, b} ∈ 
  PositiveIntegers]

True

BTW,{a, b} ∈ Integers also work.

added 6 characters in body
Source Link
cvgmt
  • 84.1k
  • 6
  • 97
  • 179
Simplify[Mod[FromDigits[{a, b, a, b, a, b}], 7]7]==0, {a, b} ∈ 
  PositiveIntegers]

0True

Simplify[Mod[FromDigits[{a, b, a, b, a, b}], 7], {a, b} ∈ 
  PositiveIntegers]

0

Simplify[Mod[FromDigits[{a, b, a, b, a, b}], 7]==0, {a, b} ∈ 
  PositiveIntegers]

True

Source Link
cvgmt
  • 84.1k
  • 6
  • 97
  • 179

Simplify[Mod[FromDigits[{a, b, a, b, a, b}], 7], {a, b} ∈ 
  PositiveIntegers]

0