A255892-OEIS公司

A255892型

对p加素数，使得p的每个十进制数字等于p的另外两个数字的差。

101, 10111, 10133, 10177, 10313, 10331, 10771, 11909, 13103, 14401, 16061, 17107, 20233, 20323, 20929, 22303, 23203, 29209, 30113, 30223, 30553, 30773, 31013, 32203, 34403, 35053, 37307, 38083, 38803, 40343, 40433, 40499, 40949, 43403, 44101, 44909, 47407

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

设x（1）x（2）。。。x（q-1）x（q）表示素数p的十进制展开式。该序列列出了素数p，对于每个索引i，x（i）=x（u）-x（v）对于一些索引u和v。

的后续A255966型.

序列的每个项包含至少两个相同的十进制数字和至少一个0数字。

数字112345678909是序列中包含10个不同数字的最小元素。

术语数量<10^n:0，0，1，1，64，1100，20799，340324-罗伯特·威尔逊v2015年3月10日

链接

米歇尔·拉格诺，n=1..10000时的n，a（n）表

例子

101在序列中，因为1=1-0和0=1-1。

MAPLE公司

对于从100到100000的n，执行以下操作：

x： =转换（n，基数，10）：n1:=nops（x）：c:=0:T:=数组（1..n1-1）：

对于从1到n1的nn，请执行以下操作：

z： =x[nn]：

k： =0：

对于从1到n1的j，do：

如果nn<>j

然后

k： =k+1:T[k]：=x[j]：

其他的

图1：

日期：

ii:=0：

当（ii=0）时，对于从1到n1-1的a：

当（ii=0）时，对于从a+1到n1-1的b，执行以下操作：

如果z=abs（T[a]-T[b]），则ii:=1:c:=c+1：

其他的

图1：

日期：日期：

日期：

如果c=n1且类型（n，prime）=true，则打印f（`%d，`，n）：

其他的

图1：

日期：

数学

fQ[n_]：=块[{id=整数位数@n，lng=1+楼层@Log10@n}，并集@表[c=补码[Range@lng，{i}]；成员Q[Union@Flatten@Table[Abs[id[[j]]-id[[k]]]，{j，c}，{k，c}]，id[[i]]]、{i，lng}]=={True}]；选择[Prime@Range@5000，fQ](*罗伯特·威尔逊v2015年3月10日*）

交叉参考

囊性纤维变性。A000040型,A255893型,A255917型,A255966型.

上下文中的序列：A094028号 A144564号 A261965型*A065074号 113628英镑 A135375型

相邻序列：A255889型 A255890型 A255891型*A255893型 A255894型 A255895型

关键字

非n,基础

作者

米歇尔·拉格诺2015年3月9日

状态

经核准的