OFFSET
1,2
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
EXAMPLE
n=2, m=2: p(n) + m*p(n + 1) = 3 + 2*5 = 13 and m*p(n) + m*p(n + 1) = 2*3 + 5 = 11 are prime.
MATHEMATICA
lim=100; Table[m = 1; While[! PrimeQ[m*Prime[n] + Prime[n + 1]] || ! PrimeQ[Prime[n] + m*Prime[n + 1]], m++]; m, {n, lim}] (* Zak Seidov, Oct 05 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 05 2013
EXTENSIONS
Typo in name and example fixed by Rémy Sigrist, May 14 2017
STATUS
approved