A153137 Smallest sequence of noncomposite numbers such that no sum of at least two terms is prime.
1, 3, 5, 113, 181, 661, 10891, 927149, 88070399, 15288362671
Offset: 1
Programs
-
PARI
print1(1); a=[1]; for(n=1, 10, forprime(p=vecmin(a)+1, , setsearch(a, p)&&next; for(i=1, 2^#a-1, isprime(normlp(vecextract(a, i), 1)+p)&&next(2)); a=concat(a, p); print1(","p))) \\ Very simplistic, should at least avoid an odd number of terms in the partial sum of earlier terms. \\ M. F. Hasler, Jan 29 2015
Extensions
a(8)-a(10) from Donovan Johnson, Dec 23 2008