A082225 - OEIS

%I #14 Feb 26 2021 01:36:49

%S 1,2,10,6,22,20,42,46,78,80,114,120,168,172,210,216,290,274,342,338,

%T 412,408,492,528,608,624,706,710,790,800,922,926,1050,1056,1174,1166,

%U 1326,1324,1496,1452,1632,1600,1824,1830,1976,2004,2176,2184,2372,2364

%N First row of array A082224.

%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 the PARI program by _Max Alekseyev_ in A082228. - _Petros Hadjicostas_, Feb 25 2021 */

%Y Cf. A082224, A082228, A082229.

%K nonn,easy

%O 1,2

%A _Amarnath Murthy_, Apr 09 2003

%E Edited and extended _David Wasserman_, Feb 27 2006