OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..1703
EXAMPLE
711131719 is in the sequence because the concatenation of [7, 11, 13, 17, 19] = 711131719 which is prime. The sum [7 + 11 + 13 + 17 + 19] = 67 is another prime.
5359616771 is in the sequence because the concatenation of [53, 59, 61, 67, 71] = 5359616771 which is prime. The sum [53 + 59 + 61 + 67 + 71] = 311 is another prime.
MATHEMATICA
FromDigits[Flatten[IntegerDigits/@#]]&/@Select[Partition[Prime[Range[ 1000]], 5, 1], AllTrue[{Total[#], FromDigits[Flatten[ IntegerDigits/@ #]]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 24 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jun 21 2014
STATUS
approved