A329577 For every n >= 0, exactly seven sums are prime among a(n+i) + a(n+j), 0 <= i < j < 7; lexicographically earliest such sequence of distinct nonnegative numbers.
0, 1, 2, 3, 4, 6, 24, 9, 5, 7, 11, 10, 8, 14, 12, 29, 15, 17, 13, 16, 30, 18, 23, 19, 20, 41, 45, 22, 38, 26, 25, 27, 28, 75, 21, 33, 34, 39, 31, 40, 36, 32, 35, 37, 42, 47, 49, 54, 48, 52, 53, 43, 44, 55, 84, 46, 50, 57, 51, 59, 56, 60, 71, 92, 68, 63, 83, 66, 61, 131, 62, 96, 58, 65, 102, 69, 77, 164
Offset: 0
Keywords
Crossrefs
Programs
-
PARI
A329577(n,show=0,o=0,N=7,M=6,p=[],U,u=o)={for(n=o,n-1, if(show>0,print1(o", "), show<0,listput(L,o)); U+=1<<(o-u); U>>=-u+u+=valuation(U+1,2); p=concat(if(#p>=M,p[^1],p),o); my(c=N-sum(i=2,#p, sum(j=1,i-1, isprime(p[i]+p[j]))));if(#p
Comments