A106714 Largest of three consecutive primes whose sum of digits is prime.

5, 7, 11, 47, 139, 197, 199, 229, 317, 331, 337, 409, 467, 601, 607, 647, 827, 829, 887, 1039, 1097, 1103, 1109, 1279, 1301, 1303, 1307, 1361, 1367, 1459, 1471, 1723, 1877, 2081, 2083, 2087, 2089, 2207, 2339, 2371, 2377, 2579, 2591, 2593, 2609, 2719, 2957

Offset

1,1

Links

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

Example

a(4)=47 is a term because this is largest of three consecutive primes i.e. 41,43 and 47 whose sum of digits is prime i.e. 4+1=5, 4+3=7 and 4+7=11.

Mathematica

Prime[#]&/@SequencePosition[Table[If[PrimeQ[Total[IntegerDigits[p]]], 1, 0], {p, Prime[Range[500]]}], {1, 1, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 02 2020 *)

Crossrefs

Sequence in context: A018426 A038976 A363673 * A106819 A045968 A066367

Adjacent sequences: A106711 A106712 A106713 * A106715 A106716 A106717

Keyword

base,nonn

Author

Shyam Sunder Gupta, May 14 2005

Status

approved