OFFSET
1,1
MATHEMATICA
Select[Partition[Prime[Range[40900000]], 17, 1], And@@PrimeQ[Total/@ IntegerDigits[ #]]&] (* Harvey P. Dale, Apr 11 2013 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
STATUS
approved