OFFSET
1,1
COMMENTS
For examples see A254862.
MATHEMATICA
s={}; Do[p=2; q=3; While[Mod[p+q, n]>0, p=q; q=NextPrime[q]]; AppendTo[s, q], {n, 50}]; s
PROG
(PARI) s=[]; for(n=1, 50, p=2; q=3; while((p+q)%n>0, p=q; q=nextprime(q+1)); s=concat(s, q)); s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 09 2015
STATUS
approved