OFFSET
1,1
COMMENTS
Up to 50000 there are only five groups of twins: (11,13) - (17,19) - (2141,2143) - (3939,3931) - (48677,48679). - Carmine Suriano, Jul 22 2010, corrected by Robert Israel, Feb 25 2022
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
For 17, 2 + 3 + 5 + 7 + 1+1 + 1+3 + 1+7 = 31, which is prime.
MAPLE
S:= 0: R:= NULL: count:= 0: p:= 1:
while count < 100 do
p:= nextprime(p);
S:= S + convert(convert(p, base, 10), `+`);
if isprime(S) then
count:= count+1; R:= R, p;
fi
od:
R; # Robert Israel, Feb 25 2022
MATHEMATICA
a = {}; su = 0; For[n = 1, n < 300, n++, su = su + Plus@@IntegerDigits[Prime[n]]; If[PrimeQ[su], AppendTo[a, Prime[n]]]]; a (* Stefan Steinerberger, Jun 08 2007 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. M. Bergot, May 31 2007
EXTENSIONS
More terms from Stefan Steinerberger, Jun 08 2007
STATUS
approved