%I#2 2012年3月30日17:26:35
%S 1,5,5,17,9,31,13,47,17,67,21,83,25103,29127,33149,37167,41191,
%电话:45211,49233,53257,57277,61307,65331,69353,73379,77401,81,
%电话:431,85449,89467,93499,9752310156310558710960711361117653121
%N a(1)=1,a(2)=5,则a(N)=a(N-2)+4,如果N为奇数,则a。
%t(*1*)压扁[表[{k,素数[k+2]},{k,1200,4}]]
%t(*2*)s={1};a=1;Do[AppendTo[s,{Prime[a+2],a=a+4}],{100}];压扁[s]
%K nonn公司
%O 1,2号机组
%2010年7月24日