OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = Sum_{i=1..n} A006567(n).
MATHEMATICA
emirpQ[n_]:=Module[{idn=IntegerDigits[n], ridn}, ridn=Reverse[idn]; idn!= ridn && PrimeQ[FromDigits[ridn]]]; Accumulate[Select[Prime[ Range[ 200]], emirpQ]] (* Harvey P. Dale, Oct 25 2011 *)
CROSSREFS
KEYWORD
base,easy,less,nonn
AUTHOR
Jonathan Vos Post, Feb 03 2010
EXTENSIONS
Corrected by Harvey P. Dale, Oct 25 2011
STATUS
approved
