A106716 Largest of four consecutive primes whose sum of digits is prime.

7, 11, 199, 331, 337, 607, 829, 1103, 1109, 1303, 1307, 1367, 1471, 2083, 2087, 2089, 2377, 2591, 2593, 2609, 3181, 3187, 3259, 3271, 3299, 3301, 3307, 3677, 3691, 4007, 4157, 4159, 4177, 4201, 4409, 4421, 4423, 4441, 4447, 4937, 5077, 5323, 5431, 5437

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

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.

Mathematica

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 *)

Crossrefs

Sequence in context: A145953 A154303 A128340 * A292791 A106818 A231329

Adjacent sequences: A106713 A106714 A106715 * A106717 A106718 A106719

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Status

approved