OFFSET
1,1
COMMENTS
PROG
(PARI)
up_to = 10000;
A348744list(up_to) = { my(v=vector(up_to), xs=Map(), i=2, p, q); mapput(xs, v[1]=3, 1); for(n=2, up_to, p = prime(n); if(1==(p%4), for(k=1+n, oo, q=prime(k); if((1==(q%4))&&!mapisdefined(xs, q), v[n]=q; break)), while(mapisdefined(xs, prime(i)), i++); v[n] = prime(i)); mapput(xs, v[n], n)); (v); };
v348744 = A348744list(up_to);
A348744(n) = v348744[n];
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 02 2021
STATUS
approved