%I#46 2023年3月30日05:15:17
%序号1,2,7,9,11,14,18,22,29,37,57,58,63,67,74,76,79108114126134137,
%电话143155158175183211225231244248274277286308310329,
%电话:341350366372393823964174224234504534623631658682
%N数字m,使phi(m)是一个三角形数,其中phi是Euler totiten函数(A000010)。
%C素数的子序列是A055469,因为在这种情况下φ(k(k+1)/2+1)=k(k+1/2)/2。
%C三角数的子序列是A287472。
%H Robert Israel,<a href=“/A360944/b360944.txt”>n,a(n)表,n=1.-10000</a>
%eφ(57)=36=8*9/2,三角形数;所以57是序列的一个项。
%p过滤器:=m->issqr(1+8*numtheory:-phi(m)):选择(过滤器,[$(1..700)]);
%t选择[Range[700],IntegerQ[Sqrt[8*EulerPhi[#]+1]]&](*_Amiram Eldar_,2023年2月27日*)
%o(PARI)isok(m)=异多角形(eulerphi(m),3);\\_米歇尔·马库斯,2023年2月27日
%o(Python)
%o从itertools导入islice,count
%o从sympy.theory.primetest导入为平方
%o从同情导入到同情
%o定义A360944_gen(startvalue=1):#术语生成器>=startvalue
%o返回滤波器(λn:平方((totient(n)<<3)+1),计数(max(1,startvalue))
%o A360944_list=list(islice(A360944-gen(),20))#_Chai Wah Wu_,2023年2月28日
%Y参见A000010、A000217、A055469、A287472。
%Y类似,但带有φ(m)的是:A039770(方形)、A078164(双方形)、P096503(复数)、A117296(回文)、A236386(长方形)。
%K nonn公司
%O 1,2号机组
%A _伯纳德·肖特,2023年2月26日