%I#9 2014年2月11日19:05:26
%S 2,3,12,15,35,56,7814019035763081291010451672221425803339,
%电话:41804522467450495278554480081065911160124411606516120,
%电话:167701863018810244224871249692507025758270002717028896
%N数N,使sigma(N)/phi(N)为素数。
%H Vincenzo Librandi,<a href=“/A067780/b067780.txt”>n的表,a(n)表示n=1..600</a>
%e sigma(12)/phi(12)=28/4=7是素数,所以12是序列的项。
%t选择[Range[10^5],PrimeQ[DivisorSigma[1,#]/EulerPhi[#]]&]
%K nonn公司
%O 1,1号机组
%A _Joseph L.Pe,2002年2月6日
|