%I#13 2021年7月24日18:18:18
%编号:2,6,302102310233310305636104615105110835334024910,
%电话159548798757810499387740111945301762838225951669090,
%电话:65753884352799725705702518373770712229494528310
%N前N个回文素数倒数之和的分母。
%H Vincenzo Librandi,n的表,n=1..100的a(n)</a>
%e 1/2+1/3+1/5+1/7+1/11+1/101+。。。给出1/2、5/6、31/30、247/210。。。
%t palQ[n_]:=模块[{idn=IntegerDigits[n]},idn==反向[idn]];分母[Accumulate[1/#&/@Select[Prime[Range[100]],palQ]](*_Wincenzo Librandi_,2011年12月30日*)
%t累加[1/Select[Prime[Range[100]],PalindomeQ]]//分母(*_哈维P.Dale_,2021年7月24日*)
%Y参见A046852、A002385。
%K nonn,基础,简单
%O 1,1号机组
%A _G.L.Honaker,Jr.小_
%E来自_Erich Friedman的更多术语,2001年6月3日
|