login
A106714
Largest of three consecutive primes whose sum of digits is prime.
1
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
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
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
STATUS
approved