%I#4 2012年3月30日17:34:14
%序号4,6,11,13,17,19,23,28,30,36,41,43,46,53,59,61,67,71,72,79,83,88,97,
%电话:101103106108113127130137138149151156163167173178181,
%U 191193197211223227229232239240250257262268271276280
%N设s=(Log[Prime[N]]-Log[N])/Log[N-1],则a(N)=楼层[N*(N-1)^s。
%C类似于底漆的电源序列。
%t fa[n_]=(Log[Prime[n]]-Log[n])/Log[n-1]a=表[Floor[n[n*(n-1)^ fa[n]],{n,3,200}]
%K nonn公司
%O 3、1
%A _Roger L.Bagula,2004年5月28日
|