OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(4) = 13 because 13 is the least prime p > 7 such that 4*p+1 is prime.
MAPLE
f:= proc(n, p0)
local p, a, v;
if n::odd then a:= 2 else a:= 1 fi;
p:= p0;
do p:= nextprime(p)
until isprime(n*p+a);
return p
end proc:
p:= 2: R:= NULL:
for n from 1 to 100 do
p:= f(n, p);
R:= R, p;
od:
R;
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jan 04 2021
STATUS
approved