%I#70 2023年11月21日10:30:11
%S 8,44,66,99117147165171212222242244246282285286290292,
%电话:33333 83433633663694044064184254344354338442474475494,
%电话:4985065075085245345395485555615745755825956046056066096286426363670682705
%N三素数,其反转也是一个三素数。
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%e a(5)=117是一个项,因为117=3^2*13有3个素数因子,用多重数计算,其反转711=3^2*79也是如此。
%p版本:=程序(n)局部L,i;
%p L:=换算(n,基数,10);
%p加(L[-i]*10^(i-1),i=1..nops(L))
%p端程序:
%p选择(t->numtheory:-bigomega(t)=3和numtheory:-bigomega(rev(t))=3,[1..10000]美元);
%t选择[Range[710],PrimeOmega[#]==3&&PrimeOmega[FromDigits[Reverse[IntegerDigits[#]]]==3&](*_Stefano Spezia_,2023年11月7日*)
%o(Python)
%o来自sympy进口保理商
%o def tp(n):返回和(factorint(n).values())==3
%o定义确定(n):返回tp(n)和tp(int(字符串(n)[::-1]))
%o打印([k代表范围内的k(10**3),如果可以(k)])#_Michael S.Branicky_,2023年11月21日
%Y参考A014612、A085751。包含A046329。包括A367151中的10*k代表k。
%K nonn,基础
%O 1,1号机组
%2023年11月6日,扎克·塞多夫和罗贝尔特·伊斯雷尔
|