%I#6 2015年10月4日00:06:50
%S 1,1,1,1,1,1,1,1,1,23,1,1,11,1,1,1_1,1,1,1,1,1,1,1.5,1,4,1,1,1,1,1,1,
%T 1,71,73,1,1,1,5,1,7431,1,1,1,1,97,1,1,11,1,1,1,1,1,1,23,1,1,1,5,1,1,1,
%U 1,1,1,1,47,1,1,1,1.1601,1,23,1,1,5,1167,7,1431,1,1,1,1,1,11,1191193,1
%编号A141498(N)/A027760(N)。
%C复合条目有a(100)=25,a(120)=1205,a(144)=55969,a(156)=4069等。
%p A010696:=程序(n)操作((n模块2)+1,[2,6]);结束:A086892:=进程(n)gcd(2^n-1,3^n-1);结束时间:
%p A141498:=程序(n)A010696(n-1)*A086892(n);结束:A027760:=进程(n)局部s,p;s:=0;p:=2;当p<=n+1时,如果n mod(p-1)=0,则s:=s+1/p;fi;p:=下一素数(p);od:分母;结束时间:
%p A141517:=程序(n)A141498(n)/A027760(n);结束:序列(A141517(n),n=1..120);#_R.J.Mathar,2009年9月3日
%K nonn公司
%O 1,11号
%2008年8月11日,A Paul Curtz
%E偏移修改,由R.J.Mathar_扩展,2009年9月3日
|