OFFSET
1,1
EXAMPLE
a(5)=23 is a term because it is the first of two consecutive primes (23 and 29), each of which has a prime sum of digits: 2 + 3 = 5 and 2 + 9 = 11.
MATHEMATICA
Select[Partition[Prime[Range[200]], 2, 1], PrimeQ[Total[IntegerDigits[ #[[1]]]]] && PrimeQ[Total[IntegerDigits[#[[2]]]]]&][[All, 1]] (* or *) Prime[#]&/@SequencePosition[Table[If[PrimeQ[Total[IntegerDigits[n]]], 1, 0], {n, Prime[Range[200]]}], {1, 1}][[All, 1]] (* The second program requires Mathematica version 10 or later, but is more efficient because it only requires testing each prime for its sum of digits once. *) (* Harvey P. Dale, Jul 27 2017 *)
Prime@Select[Range[500], PrimeQ[Total[IntegerDigits[Prime[#]]]] && PrimeQ[Total[IntegerDigits[Prime[# + 1]]]] &] (* César Eliud Lozada, Mar 31 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
EXTENSIONS
Definition clarified by Harvey P. Dale, Jul 27 2017
STATUS
approved