login
Denominator of sum of reciprocals of first n palindromic primes.
2

%I #13 Jul 24 2021 18:18:18

%S 2,6,30,210,2310,233310,30563610,4615105110,835334024910,

%T 159548798757810,49938774011194530,17628387225951669090,

%U 6575388435279972570570,2518373770712229494528310

%N Denominator of sum of reciprocals of first n palindromic primes.

%H Vincenzo Librandi, <a href="/A046853/b046853.txt">Table of n, a(n) for n = 1..100</a>

%e 1/2 + 1/3 + 1/5 + 1/7 + 1/11 + 1/101 + ... gives 1/2, 5/6, 31/30, 247/210, ...

%t palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]]; Denominator[Accumulate[1/#&/@Select[Prime[Range[100]],palQ]] (* _Vincenzo Librandi_, Dec 30 2011 *)

%t Accumulate[1/Select[Prime[Range[100]],PalindromeQ]]//Denominator (* _Harvey P. Dale_, Jul 24 2021 *)

%Y Cf. A046852, A002385.

%K nonn,base,easy

%O 1,1

%A _G. L. Honaker, Jr._

%E More terms from _Erich Friedman_, Jun 03 2001