OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
EXAMPLE
a(1)=3301 is a term because this is Largest of seven consecutive primes i.e. 3251,3253,3257,3259,3271,3299 and 3301, whose sum of digits is prime i.e. 3+2+5+1=11, 3+2+5+3=13, 3+2+5+7=17, 3+2+5+9=19, 3+2+7+1=13, 3+2+9+9=23 and 3+3+0+1=7.
MATHEMATICA
sdpQ[pr_]:=AllTrue[Total[IntegerDigits[#]]&/@pr, PrimeQ]; Transpose[Select[ Partition[ Prime[ Range[50000]], 7, 1], sdpQ]][[7]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 09 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, May 14 2005
STATUS
approved