Wolfram mathematica Wolfram Mathematica递归表

晚上好，我与Wolfram Mathematica有问题，如果有人能帮助我并发布解决方案，我将不胜感激。以下是练习：

打印序列a的前11个元素，该序列由该循环关系给出：a（n+1）=11a（n），其中a（1）=7，其中不显示数字3

k[x_] := Module[{p, z},
  p = RecurrenceTable[
    {a[n + 1] == 11 a[n], a[1] == 7}, a, {n, 1, x}];
  z = Flatten[First /@
     Cases[{#, MemberQ[IntegerDigits[#], 3]} & /@
       p, {_, False}]]]

m = 11;
While[Length[s = k[m]] < 11, m++]
s

因此，我只需要不包含数字3的元素。

k[x_]：=Module[{p，z}，
k[x_] := Module[{p, z},
  p = RecurrenceTable[
    {a[n + 1] == 11 a[n], a[1] == 7}, a, {n, 1, x}];
  z = Flatten[First /@
     Cases[{#, MemberQ[IntegerDigits[#], 3]} & /@
       p, {_, False}]]]

m = 11;
While[Length[s = k[m]] < 11, m++]
s

p=重现表[
{a[n+1]==11a[n]，a[1]==7}，a，{n，1，x}]；
z=展平[先/@
案例[{#，MemberQ[IntegerDigits[#，3]}&/@
p、 {{{，False}]]
m=11；
而[Length[s=k[m]]<11，m++]
s

{7，77，847，102487，12400927，1500512167，181561972207，1997181694277，2416589850707517，4709249964527920064407，51801749609807120708477}

---

显示您所拥有的：我只需要红色标签的数字（不包含3），但不知道如何使用条件。好的，您应该将代码放在这里（而不是链接）。下一步查找

IntegerDigits

并选择

和
MemberQ