Wolfram Mathematica 递归表答案

【问题标题】：Wolfram Mathematica Recurrence TableWolfram Mathematica 递归表
【发布时间】：2015-05-01 20:40:35
【问题描述】：

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

打印序列 a 的前 11 个元素，该序列具有以下递归关系：a(n+1) = 11a(n)，其中 a (1) = 7，其中没有出现数字3。

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

【问题讨论】：

显示您尝试过的内容
我有这个：prntscr.com/70f8xq，我只需要红色标记的数字（不包含 3），但不知道如何使用条件。
好的，你应该把你的代码放在这里（不是链接）。下一步查找IntegerDigits 和Select 和MemberQ

【解决方案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, 4709249964527920064407, 071017049679}

【讨论】：