OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(5)=29 is a term because sum of digits of two consecutive primes i.e. 23 and 29 is prime i.e. 2+3=5 and 2+9=11.
MATHEMATICA
Select[Partition[Prime[Range[200]], 2, 1], AllTrue[Total/@IntegerDigits[#], PrimeQ]&][[All, 2]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 22 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
EXTENSIONS
Definition clarified by Harvey P. Dale, Mar 22 2017
STATUS
approved