OFFSET
1,1
COMMENTS
Corresponding primes are 3,3,5,13,11,19,17,19,19,29,43,43,41,43,47,53,59 (s1).
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..1000
EXAMPLE
5 mod 2 + 5 mod 3 = 1 + 2 = 3 (prime)
7 mod 3 + 7 mod 5 = 1 + 2 = 3 (prime)
19 mod 7 + 19 mod 11 = 5 + 8 = 13 (prime)
MATHEMATICA
s=Reap[Do[Sow[Select[Prime[Range[n+2, 1000]], PrimeQ[Mod[#, Prime[n]]+ Mod[#, Prime[n+1]]]&][[1]]], {n, 70}]][[2, 1]]
s1=Table[Mod[s[[n]], Prime[n]]+ Mod[s[[n]], Prime[n+1]], {n, 70}]
PROG
(PARI)
a(n)={my(pn=prime(n)); my(pnp1=nextprime(pn+1)); my(p=nextprime(pnp1+1));
while(!isprime(p%pn + p%pnp1), p=nextprime(p+1)); p} \\ Andrew Howroyd, Feb 25 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 16 2013
STATUS
approved