登录

OEIS由OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A133608型 对n进行计数，使第n个半素数的位数和等于n的位数和。 0 5, 6, 19, 40, 41, 42, 70, 71, 85, 89, 128, 148, 149, 166, 199, 246, 257, 271, 285, 327, 339, 346, 448, 449, 469, 484, 566, 592, 605, 617, 634, 643, 644, 676, 682, 694, 710, 713, 719, 740, 748, 751, 752, 753, 782, 793, 794, 797, 798, 815, 890, 901, 905, 961 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,1 评论 这是为了A033549号作为半素数A001358号都是质数A000040型. 链接 n=1..54时的n、a（n）表。 公式 A007953号(A001358号（a（n））=A007953号（a（n））。 例子 a（1）=5，因为半素数（5）=14，其数字之和为5，与其作为半素数的索引相同。 数学 a={}；c=0；对于[n=4，n<10000，n++，如果[Sum[FactorInteger[n][[i，2]]，{i，1，Length[FactorInteger[n]]}]==2，c++；如果[Plus@@IntegerDigits[c]==Plus@@integerDiges[n]，AppendTo[a，c]]]；一个(*斯特凡·斯坦纳伯格2007年12月29日*） SemiPrimePi[n_]：=总和[PrimePi[n/素数@i]-i+1，｛i，PrimePi@平方@n}]; 半素数[n_]：=块[{e=Floor[Log[2，n]+1]，a，b}，a=2^e；做[b=2^p；同时[半初级Pi@a<n，a=a+b]；a=a-b/2，{p，e，0，-1}]；a+b/2]；选择[Range@1000，fQ@#&](*罗伯特·威尔逊v*) nn=5000；使用[{sp=Select[Range[nn]，PrimeOmega[#]==2&]}，Select[Range[Length[sp]]，Total[IntegerDigits[sp[#]]]==Total[IntegerDigits[#]]&]](*哈维·P·戴尔2012年10月15日*） 交叉参考 参见。A001358号,A007953号,A033549号. 上下文中的序列：A163772号 A056509号 A129722号*A317444型 A072577号 A231182号 相邻序列：A133605型 A133606型 A133607型*A133609型 A133610型 A133611号 关键字 基础,容易的,非n,较少的 作者 乔纳森·沃斯邮报2007年12月27日 扩展 更正和扩展人斯特凡·斯坦纳伯格和罗伯特·威尔逊v2007年12月29日 状态 经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间：2024年4月24日17:10 EDT。包含371962个序列。（在oeis4上运行。）