编辑
经核准的
snm[p_]：=模块[｛m=1｝，While[！可除数[m，p]||！可除[DivisorSigma[1，m]，p]，m++]；m] ；snm/@Prime[范围[40]](*哈维·P·戴尔2022年12月17日*）
_多诺万·约翰逊(多诺万人.约翰逊(自动变速箱)雅虎.通用域名格式),_,2009年2月4日
OEIS服务器: https://oeis.org/edit/global/163
多诺万·约翰逊="="/A156099号/b156099.txt“>n，a（n）表，n=1..5000</a>
非n,新的
非n
最小的数字m，使得素数（n）是m和sigma（m）的因子。
6, 6, 40, 28, 473, 117, 1139, 703, 3151, 5017, 496, 2701, 6683, 11051, 13207, 11183, 20827, 10309, 26867, 20093, 18688, 12403, 27473, 91136, 18721, 101909, 63551, 68587, 71177, 76501, 8128, 68513, 74939, 38503, 221861, 273461, 49141, 159251
1,1
多诺万·约翰逊（Donovan Johnson），n的表，n=1..5000的a（n）</a>
a（20）=20093。素数（20）=71。20093/71 = 283. 西格玛（20093）/71=288。
囊性纤维变性。A000040型,A000203号.
多诺万·约翰逊（Donovan.Johnson（AT）yahoo.com），2009年2月4日
