login
A203072
First row of A203071.
2
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
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
Sequence in context: A082073 A244209 A156279 * A131873 A220130 A276071
KEYWORD
nonn
AUTHOR
M. F. Hasler, Dec 28 2011
STATUS
approved