I want to find the smallest positive integer $k$ such that the finite list
s[k*m] contains no odd numbers, for $m=1,2 \dots$. Unfortunately
FindInstance is not working for me, so I am trying to use a
For loop instead.
Right now, I have the loop
For[k=1, Length[Select[s[k*m],OddQ]]!= 0, k++, x = k+1 ].
After I specify $m$ (say I set
m=3) and run the above, I will have
x equal to the number I want. However, if I want the next number, I must specify
m=4, run the above again, and request
This is quite tedious. Is there a way, similar to
Table, to get the sequence I am looking for, for $m$ ranging from $1$ to some specified upper bound?