f[n_]:=PrimeNu[FromDigits[Flatten[IntegerDigits/@{First[n],Last[n]}]];f/@分区[范围[1,421,2],2](*发件人 _哈维·P·戴尔, _, 2011年7月13日*)
OEIS服务器: https://oeis.org/edit/global/2062
扩展、更正和编辑_查尔斯·格里特豪斯四世 (查尔斯.大房子(自动变速箱)案例.教育), _, 2010年4月27日
OEIS服务器: https://oeis.org/edit/global/147
_Parthasarathy楠比 (帕查·南比(自动变速箱)雅虎.通用域名格式), _, 2005年4月11日
OEIS服务器: https://oeis.org/edit/global/136
提出
经核准的
编辑
查尔斯·格里特豪斯四世:感谢您的澄清。我去年编辑这本书的时候应该写这样的东西!
每个奇数只使用一次,即,尽管(1,3)和(5,7)都被视为两个连续的奇数,但(3,5)和(7,9)不是。【摘自Harvey P.Dale,2011年7月13日】
f[n]:=PrimeNu[FromDigits[Flatten[InterDigits/@{First[n],Last[n]}]];f/@Partition[范围[1,421,2],2](*摘自Harvey P.Dale,2011年7月13日*)
1, 2, 1, 2, 2, 2, 2, 2, 3, 1, 2, 1, 1,4,2,1,三,1,2,2,2,2,2,2,2,三,1,1,三,1,1,2,2,2,三,三,2,三,2,2,三,2,2,三,2,1,2,2,2,2,1,2,2,2,1,三,1,2,4,2,2,2,2,2,三,2,三,2,三,1,2,1,1,3, 2,1,2, 1,三,三,1,2,三,三,1,4,2,2,三,1,1,2,三,3, 2,1,2,4,4,2,2,1,2,三,1
0,1,2
13的不同素数因子的数量是1,因为它是素数,所以第一项是1。
a(1)=ω(13)=1;a(2)=ω(57)=2;a(3)=ω(911)=1。
(PARI)a(n)=ω(eval(Str(4*n-3,4*n-1))
非n,基础,新的
由Charles R Greathouse IV(Charles.Greathouse(AT)case.edu)扩展、更正和编辑,2010年4月27日
两个连续奇数串联的不同素因子的数目。
1, 2, 1, 2, 2, 2, 2, 2, 3, 1, 2, 1, 1, 2, 2, 3, 2, 2, 1, 2, 4, 3, 2, 3
0,2
非n
Parthasarathy Nambi(PachaNambi,AT)yahoo.com),2005年4月11日