1,6
A（n）＝nIFF n分母（BnnuliLin（x）-BelnuliLn）（参见A19544）
A（n）＝n IFF n＝1或n为A324315.
A（n）＝n，如果n是Carmichael数（A000）
参见KELNER和SONDOW 2019中关于伯努利多项式的部分。
Bernd C. Kellner和Jonathan Sondow，On Carmichael和多边形数，伯努利多项式，和BASE-P数字的总和，2019，提交。
n，a（n）n＝1…97的表。
Bernd C. Kellner和Jonathan Sondow，权力和分母，阿梅尔。数学月，124（2017），695-709。DOI：104169/A.M.th.L.124.8695，阿西夫：一千七百零五点零三八五七
Bernd C. Kellner和Jonathan Sondow关于CalMekes和多边形数、伯努利多项式和Base－P数字的和，阿西夫：1902.10672 [数学.NT ] 2019。
A（n）*A32471（n）=A000 7947（n）＝自由基（n）。
A（n）*A324370（n）=A19544（N-1）=分母（伯努利（X）-伯努利亚）。
A（n）*A324370（n）*A32471（n）=A14845（n-1）＝分母（伯努利{n-1 }（x））。
6＝2×3，6＝1102在基部2中具有1＋1＋0＞2，但6＝20.3在基3中具有2＋2＝α<，所以A（α）＝α。
g:= PROC（n，p）转换（转换（n，基，p），'+'）>＝p结束进程：
F:= PROC（n）局部P；
转换（选择（p＞g（n，p），NothSalp:-因子集（n）），'*'）
结束进程：
MAP（F，[ 1美元…100 ]）；罗伯特以色列2月28日2019
SD[N]，PY]：=如果[n＜2, 0，Plus @ @整数数字[n，p] ]；
LP[n]：=转置[因子整数[n] ]〔1〕；
DD1[n]：= Time@选择[LP[n]，SD[n，η]＞η& ]；
表[DD1[n]，{n，1, 100 }]
囊性纤维变性。A000 7947，A14845，A19544，A324315，A324316，A324317，A324318，A324319，A324320，A324370，A32471，A324404，A324405.
语境中的顺序：A0762020 A2068 A2238*A2667 A30375 A082068
相邻序列：A324366 A324367 A324368*A324370 A32471 A32472
诺恩，基地，看
贝尔恩德·C·凯尔纳和乔纳森·索道2月24日2019
经核准的
