|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|