%I#19 2024年2月18日09:06:52
%S 26、29、42、35、41、50、58233、80239344251、92257352269126368566,
%电话:37628729357839231178832360232941680424341614359448,
%电话:63837783612323834644728524014884131256674419686437512884
%N a(N)=第N个半素数+(其两个素数因子的串联,最小因子优先)。
%F a(n)=A001358(n)+A106554(n).-_Reinhard Zumkeller_,2005年5月19日
%e第一个半素数是4;4是2*2;26=4+22.
%e第二个半素数是6;6是2*3;29=6+23.
%e第三个半素数是9;9是3*3;41=9+33.
%e第四个半素数是10;10是2*5;35=10+25.
%t R=165;SP=选择[Range[R],PrimeOmega[#]==2&];FromDigits@Flatten[IntegerDigits@表格[#1,{#2}]&@@@FactorInteger@#]&/@SP+SP(*_James C.McMahon_,2024年2月18日*)
%Y参见A084126、A084127、A001358、A106554。
%K基础,简单,无
%O 1,1号机组
%A _Eric Angelini,2005年5月9日
%E来自Reinhard Zumkeller的更多条款,2005年5月19日
%E Typo由James C.McMahon更正,2024年2月6日
|