|
|
|
|
1, 8, 4, 14, 6, 10, 22, 27, 15, 35, 40, 88, 28, 26, 44, 60, 57, 58, 64, 120, 62, 72, 34, 56, 80, 63, 98, 46, 102, 178, 52, 100, 66, 156, 86, 82, 110, 76, 114, 94, 140, 96, 154, 130, 160, 112, 108, 138, 78, 150, 118, 146, 132, 126, 162, 176, 164, 188, 202, 200, 180
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
PROG
|
(PARI) extend_first_row( a=[], u=[] )={ u || for( i=1, #a, u=setunion(u, Set(a[i]));
forstep( j=i-1, 1, -1, u=setunion(u, Set(a[j]+=a[j+1]))));
for( t=1, 9e9, isprime(t) && next; setsearch(u, t) && next; my(tt=t);
forstep( j=#a, 1, -1, setsearch(u, tt += a[j]) && next(2); isprime(tt) && next(2)); return(t)) }
a=[]; for(i=1, 100, print(a=concat(a, extend_first_row(a))))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|