login
First row of A082228.
4

%I #14 Feb 26 2021 01:37:51

%S 1,3,5,6,7,13,9,19,15,17,21,25,23,31,27,33,29,35,37,39,41,45,43,49,47,

%T 51,53,55,57,59,61,67,63,69,65,73,71,77,75,79,81,85,83,91,87,93,89,95,

%U 97,99,101,105,103,107,109,111,113,119,115,117,121,123,125,131,127,129

%N First row of A082228.

%o (PARI) lista(nn) = { my(A=matrix(nn, nn)); S=Set(); for(s=2, nn+1, for(i=1, s-1, if(s%2, q=[i, s-i], q=[s-i, i]); p=[sum(j=1, q[2]-1, A[q[1], j]), sum(j=1, q[1]-1, A[j, q[2]])]; n=1; while(setsearch(S, n) || (p[1]&&isprime(p[1]+n)) || (p[2]&&!isprime(p[2]+n)), n++); A[q[1], q[2]]=n; S=setunion(S, Set([n])); if(q[1]==1, print1(n, ", ")); )) } \\ This is a modification of _Max Alekseyev_'s PARI program from A082228. - _Petros Hadjicostas_, Feb 25 2021

%Y Cf. A082224, A082225, A082226, A082227, A082228, A082230, A082231.

%K hard,nonn

%O 1,2

%A _Amarnath Murthy_, Apr 09 2003

%E Extended by _Max Alekseyev_, Apr 11 2009

%E Various sections edited by _Petros Hadjicostas_, Feb 25 2021