_罗伯特·威尔逊v(rgwv(相对湿度)(自动变速箱)rgwv(相对湿度).通用域名格式),_,2001年8月9日
OEIS服务器以下为:https://oeis.org/edit/global/156
f[n_Integer]:=(d=除数[n];l=长度[d];如果[EvenQ[l],ToExpression[ToString[d[ [[[1/2升] ] ] <>] ]] <>ToString[d(ToString[d)[ [[[l/2+1]]]]中,]] ]],ToExpression[ToString[d[ [[[升/2+.5] ] ] <>] ]] <>ToString[d(ToString[d)[ [[[升/2+.5] ] ] ] ] );] ]] ]] );嵌套列表[f,7,25]
基础,非n,新的
a(1)=7,a(n)=a(n-1)的两个最接近因子的串联,其乘积等于a。
7, 17, 117, 913, 1183, 1391, 13107, 51257, 151257, 381397, 577661, 4911789, 29116879, 112646989, 536920981, 1928258999, 11928258999, 25227472837, 46275452231, 212892173679, 370964057893, 1859199550327, 5593332415439
1,1
f[n_Integer]:=(d=除数[n];l=长度[d];If[EvenQ[l],ToExpression[ToString[d[l/2]]]<>ToString[d[l/2+1]]],To表达式[ToString[d[l/2+.5]]]]<>ToString[d[[l/2+.5]]);嵌套列表[f,7,25]
囊性纤维变性。A003681号,A062094号和A062095型.
基础,非n
Robert G.Wilson v(rgwv(AT)rgwv.com),2001年8月9日
经核准的