Wolfram Mathematica递推表

Question

晚上好，我和Wolfram Mathematica有个问题，如果有人能帮我把解决方案发出去，我将不胜感激。下面是练习：

打印序列a的前11个元素，其中a(n+1) = 11a(n)，其中a(1) = 7，其中没有出现数字3。

所以，我只需要不包含数字3的元素。

Answer 1

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

{7，77,847,102487,12400927,1500512167,181561972207,1997181694277,241658985007517,470924996452720064407,51801760609807120708477}