|
|
A046852
|
|
Numerator of sum of reciprocals of first n palindromic primes.
|
|
2
|
|
|
1, 5, 31, 247, 2927, 297937, 39263057, 5959285217, 1083245729387, 207735268337827, 65180687788497661, 23058721563350868863, 8618531530355825754989, 3307472964561561236731357
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
1/2 + 1/3 + 1/5 + 1/7 + 1/11 + 1/101 + ... gives 1/2, 5/6, 31/30, 247/210, ...
|
|
MATHEMATICA
|
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; Numerator[ Accumulate[1/#&/@Select[Prime[Range[200]], palQ]]] (* Harvey P. Dale, Dec 21 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|