OFFSET
1,1
COMMENTS
This sequence is non-monotonic: a(19) = 1229 > a(20) = 1087.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A361679(n,n).
MAPLE
b:= proc() option remember; local f; f:= proc() [] end;
proc(n, k) option remember; local p;
p:= `if`(nops(f(k))=0, 1, f(k)[-1]);
while nops(f(k))<n do p:= nextprime(p);
if isprime(p+2^k) then f(k):= [f(k)[], p] fi
od; f(k)[n]
end
end():
a:= n-> b(n$2):
seq(a(n), n=1..55);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Mar 20 2023
STATUS
approved