OFFSET
1,1
LINKS
Alois P. Heinz, Antidiagonals n = 1..200, flattened
EXAMPLE
Square array A(n,k) begins:
3, 3, 3, 3, 5, 3, 3, 7, 11, 7, ...
5, 7, 5, 7, 11, 7, 11, 13, 29, 37, ...
11, 13, 11, 13, 29, 19, 23, 37, 59, 67, ...
17, 19, 23, 31, 41, 37, 29, 61, 89, 73, ...
29, 37, 29, 37, 47, 43, 53, 97, 101, 79, ...
41, 43, 53, 43, 71, 67, 71, 103, 107, 127, ...
59, 67, 59, 67, 107, 73, 83, 127, 131, 139, ...
71, 79, 71, 73, 131, 103, 101, 163, 149, 157, ...
101, 97, 89, 97, 149, 109, 113, 193, 179, 163, ...
107, 103, 101, 151, 167, 127, 149, 211, 197, 193, ...
MAPLE
A:= 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():
seq(seq(A(n, 1+d-n), n=1..d), d=1..12);
CROSSREFS
AUTHOR
Alois P. Heinz, Mar 20 2023
STATUS
approved