OFFSET
1,1
COMMENTS
for k=1..10, a(1000*k) = 2999, 2999, 2999, 21997, 12497, 2999, 10499, 51991, 4493, 29989.
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
EXAMPLE
2+3=5=1*5, 3+5=8=2*4, 5+7=12=3*4, 3+5=8=4*1, 2+3=5=5*1, 5+7=12=6*2, 19+23=42=7*6, 3+5=8=8*1, 7+11=18=9*2, 13+17=30=10*3.
MATHEMATICA
s={}; Do[p=2; q=3; While[Mod[p+q, n]>0, p=q; q=NextPrime[q]]; AppendTo[s, p], {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, p)); s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 09 2015
STATUS
approved