OFFSET
1,1
LINKS
MAPLE
u:= (h, t)-> select(isprime, [seq(h*2^t+k, k=0..2^t-1)]):
A:= proc(n, k) local l, p;
l:= proc() [] end; p:= proc() -1 end;
while nops(l(k))<n do p(k):= p(k)+1;
l(k):= [l(k)[], u(k, p(k))[]]
od: l(k)[n]
end:
a:= n-> A(n$2):
seq(a(n), n=1..60);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Sep 20 2015
STATUS
approved