%I#8 2013年11月21日12:48:40
%S 1,2,2,2,2,2,2,2,3,1,2,1,1,4,2,1,3,1,1,2,2,3,2,2,2,31,1,3,1,1,2,2,2,
%温度3,3,2,3,2,2,3,2,2,3,1,2,2,2,2,1,2,2,1,1,2,2,2,2,2,2,1,2,2,1,2,4,2,2,22,3,3,1,2,2,
%U 3,1,2,1,1,3,2,1,2,1,3,3,1,2,3,3,1,2,3,1,4,1,2,3,2,3,1
%N两个连续奇数串联的不同素因子的数目。
%C每个奇数只使用一次,即尽管(1,3)和(5,7)都被视为两个连续的奇数,但(3,5)和(7,9)不是。【摘自Harvey P.Dale,2011年7月13日】
%e a(1)=ω(13)=1;a(2)=ω(57)=2;a(3)=ω(911)=1。
%t f[n_]:=PrimeNu[FromDigits[Flatten[IntegerDigits/@{First[n],Last[n]}]];f/@分区[范围[1421,2],2](*哈维·P·戴尔,2011年7月13日*)
%o(PARI)a(n)=ω(eval(Str(4*n-3,4*n-1))
%K nonn,基础
%O 1,2号机组
%2005年4月11日,A _Parthasarathy Nambi
%E由_Charles R Greathouse IV_扩展、更正和编辑,2010年4月27日
|