[go: up one dir, main page]

login
A106720
Largest of six consecutive primes the sum of the digits of each of which is prime.
1
2089, 2609, 3299, 3301, 3307, 4177, 4201, 4423, 4441, 4447, 7129, 12109, 12479, 14341, 14347, 14369, 14387, 25073, 27109, 27127, 27143, 32341, 33409, 34057, 34253, 34259, 35227, 35803, 42227, 59809, 67213, 67217, 80221, 101267, 102107
OFFSET
1,1
LINKS
EXAMPLE
a(1)=2089 is a term because this is Largest of six consecutive primes i.e. 2063,2069,2081,2083,2087 and 2089, whose sum of digits is prime i.e. 2+0+6+3=11, 2+0+6+9=17, 2+0+8+1=11, 2+0+8+3=13, 2+0+8+7=17 and 2+0+8+9=19.
MATHEMATICA
idprQ[n_]:=PrimeQ[Total[IntegerDigits[n]]]; Transpose[Select[ Partition[ Prime[ Range[ 10000]], 6, 1], And@@idprQ/@#&]][[6]] (* Harvey P. Dale, Dec 05 2014 *)
CROSSREFS
Sequence in context: A255146 A293106 A221360 * A179124 A206606 A089159
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
EXTENSIONS
Definition clarified by Harvey P. Dale, Dec 05 2014
STATUS
approved