A260704-OEIS公司

邮编：260704

的不同除数对数A260703型（n）具有一个反转等于另一个反转的性质。

三

1, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 3, 1, 2, 1, 2, 2, 2, 1, 2, 1, 1, 4, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 1, 3, 1, 1, 1, 1, 1, 2, 4, 1, 1, 2, 2, 3, 1, 1, 1, 2, 2, 1, 4, 1, 1, 1, 2, 1, 1, 4, 1, 1, 1, 2, 2, 2, 1, 3, 1, 2, 3, 2, 1, 3, 2, 1, 3

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

抵消

1,3

A260703型：至少有两个除数的数字，使得其中一个的反转等于另一个。

链接

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

例子

a（9）=3，因为A260703型（9） =336，336，{1，2，3，4，6，7，8，12，14，16，21，24，28，42，48，56，84，112，168，336}的除数集包含3对（12，21），（24，42）和（48，84），其性质为：21=反转（12），42=反转（24）和84=反转（48）。

MAPLE公司

其中（数字理论）：nn:=5000：

对于从1到nn的n，do：

它：=0:d：=除数（n）：d0：=nops（d）：

对于从1到d0的i，请执行以下操作：

dd:=d[i]：y:=转换（dd，基数，10）：n1:=长度（dd）：

s： =总和（'y[j]*10^（n1-j）'，'j'=1..n1）：

对于从i+1到d0的k，do：

如果s=d[k]

然后

它：=它+1：

其他fi：

日期：

如果大于0

然后

printf（`%d，`，it）：

其他fi：

日期：

数学

f[n_]：=块[{d=选择[除数@n，整数长度@#>1&]，palQ，r}，palQ[x_]：=反向@#==#&@整数位数@x；r=FromDigits@Reverse@IntegerDigits@@#&/@d；长度@Select[Intersection[d，r]！palQ@#&]/2]；f/@量程@3000/。0->无(*迈克尔·德弗利格2015年11月17日*）

交叉参考

囊性纤维变性。A000005号,A027750型,A083815号,A260703型,A260705型.

上下文中的顺序：A342464飞机 A061342号 A104639号*A161223号 A145672号 A175024号

相邻序列：A260701型 A260702型 A260703型*A260705型 A260706型 A260707型

关键词

非n,基础

作者

米歇尔·拉格诺2015年11月17日

状态

经核准的