|
| |
|
| A253824号 |
| 数字n=concat（s，t），从而n=σ（s）*σ（t），其中σ（x）是x的除数之和。 |
|
9
|
|
|
|
540, 2352, 28224, 82890, 737856, 1524096, 1531152, 3429216, 17062920, 22264200, 23268600, 49447728, 104941200, 162496048, 197499456, 267450144, 502334784, 619672032, 2347826040, 2942021520, 4045874976, 4302305280, 9876226752
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
540=连接（5,40）->西格玛（5）=6，西格马（40）=90，6*90=540。
2352=concat（23,52）->σ（23）=24，σ（52）=98和24*98=2352。
28224＝concat（28224）->西格玛（28）＝56、西格玛（224）＝504和56*504＝28222。
82890=concat（82890）->sigma（8）=15，sigma[2890）=5526，15*5526=82890。
|
|
|
MAPLE公司
|
使用（数字理论）：P:=proc（q）局部s，t，k，n；
对于n从1到q do对于k从1到ilog10（n）dos：=n mod 10^k；t： =trunc（n/10^k）；如果s*t>0，那么如果σ（s）*sigma（t）=n
然后打印（n）；断裂；fi；fi；od；od；结束：P（10^6）；
|
|
|
数学
|
fQ[n_]：=块[{idn=IntegerDigits@n，lng=Floor@Log10@n}，成员Q[Table[DivisorSigma[1，FromDigits@Take[idn，{1，i}]]Divisor西格玛[1，FremDigits@Take[id，{i+1，lng+1}]]，{i，lng}]，n]]；k=1；lst={}；当[k<1310000001时，如果[fQ@k，AppendTo[lst，k]；打印@k]；k++](*罗伯特·威尔逊v2015年1月19日*）
|
|
|
黄体脂酮素
|
（PARI）isok（n）={len=#Str（n）；对于（k=1，len-1，na=n\10^k；nb=n%10^k；如果（nb&&（n==σ（na）*sigma（nb）），返回（1）；）；}\\米歇尔·马库斯2015年1月15日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础,更多
|
|
|
作者
|
|
|
|
扩展
|
缺少a（14）和a（19）-a（23）乔瓦尼·雷斯塔2015年7月17日
|
|
|
状态
|
经核准的
|
| |
|
|
