A082225 - OEIS

A082225

First row of array A082224.

1, 2, 10, 6, 22, 20, 42, 46, 78, 80, 114, 120, 168, 172, 210, 216, 290, 274, 342, 338, 412, 408, 492, 528, 608, 624, 706, 710, 790, 800, 922, 926, 1050, 1056, 1174, 1166, 1326, 1324, 1496, 1452, 1632, 1600, 1824, 1830, 1976, 2004, 2176, 2184, 2372, 2364

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..50.

PROG

(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 */

CROSSREFS

Cf. A082224, A082228, A082229.

Sequence in context: A086064 A076374 A142954 * A211365 A346498 A376376

Adjacent sequences: A082222 A082223 A082224 * A082226 A082227 A082228

KEYWORD

nonn,easy

AUTHOR

Amarnath Murthy, Apr 09 2003

EXTENSIONS

Edited and extended David Wasserman, Feb 27 2006

STATUS

approved