The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Mar 31 2019 11:38:19
%S 7,11,199,331,337,607,829,1103,1109,1303,1307,1367,1471,2083,2087,
%T 2089,2377,2591,2593,2609,3181,3187,3259,3271,3299,3301,3307,3677,
%U 3691,4007,4157,4159,4177,4201,4409,4421,4423,4441,4447,4937,5077,5323,5431,5437
%N Largest of four consecutive primes whose sum of digits is prime.
%H Harvey P. Dale, <a href="/A106716/b106716.txt">Table of n, a(n) for n = 1..1000</a>
%e a(3)=199 is a term because this is Largest of four consecutive primes i.e. 191,193,197 and 199, whose sum of digits is prime i.e. 1+9+1=11, 1+9+3=13, 1+9+7=17 and 1+9+9=19.
%t fcpQ[v_]:=AllTrue[v,PrimeQ[Total[IntegerDigits[#]]]&]; Select[Partition[ Prime[ Range[800]],4,1],fcpQ][[All,4]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 31 2019 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, May 14 2005