检验过的
经核准的
提出
编辑
a(12)来自_AlvinH(H). 胡佛 皮带-2009年5月20日
素数,其中a(1)=2,a(n+1)=最小素数(a(n)的偶数位数之和 ) <(a(n+1)的偶数位数之和).
f[n_]:=块[{m=Total@选择[IntegerDigits@n,EvenQ],p=2},而[Total@Select[Integer Digits@p,EvenQ]<=m,p=NextPrime@p];p] ;嵌套列表[f,2,31](*罗伯特·威尔逊v,6月24 23 2014 *)
f[n_]:=块[{m=Total@选择[IntegerDigits@n,EvenQ],p=2},而[Total@Select[Integer Digits@p,EvenQ]<=m,p=NextPrime@p];p] ;嵌套列表[f,2,31](*~~~ _罗伯特 G公司. 威尔逊 v(v)_, 六月 24 2014 *)