A080026-OEIS公司

A080026号

只有一个除数d的数n，在二进制表示中，d和n/d与n具有相同的1个数。

1, 9, 49, 225, 961, 3969, 6241, 8281, 16129, 24649, 25281, 33489, 34969, 65025, 82369, 100489, 101761, 123201, 133225, 140625, 143641, 198025, 261121, 328329, 330625, 405769, 408321, 494209, 540225, 564001, 576081, 582169, 664225, 797449

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

抵消

1,2

a（n）=m^2与A000120号（米）=A000120号（n） ●●●●。

链接

n=1..34时的n，a（n）表。

例子

6241=79^2:1100001100001=10011111*1001111，因此6241是一个术语。

数学

Do[b=计数[IntegerDigits[n^2，2]，1]；如果[Count[IntegerDigits[n，2]，1]==b，c=0；d=整数位数[除数[n^2]，2]；l=除数Sigma[0，n^2]；k=1；当[k<上限[l/2]时，如果[Count[d[k]]，1]==b&&Count[d[[l-k+1]]，1]==b，c++]；k++]；如果[c==0，打印[n^2]]，{n，1，1000}]

dnd1Q[n_]：=计数[除数[n]，_？（数字计数[n，2，1]==数字计数[#，2，2]==数字数[n/#，2、1]&）]==1；选择[范围[800000]，dnd1Q](*哈维·P·戴尔，2021年8月3日*）

交叉参考

囊性纤维变性。A007088号,A000120号,A000005号,A000196号,A000290型.

A080024型（a（n））=1A080025型.

上下文中的序列：A354657型 A003297号 A012248号*A060867型 A192814号 A228018型

相邻序列：A080023美元 A080024型 A080025型*A080027级 A080028号 A080029号

关键词

非n

作者

莱因哈德·祖姆凯勒2003年1月21日

扩展

更多术语来自罗伯特·威尔逊v2003年1月24日

状态

经核准的