a new sequence

[Robert G. Wilson v]

Dear Neil,

        What follows is my first attempt at the "proper" format.  Did I
get it right?  Bob.


> %I A000000
> %S A000000 1,3,5,7,2987,2989,3017,3019,3047,3049,3077,3079,3107,3109,3137,3139,3167,3169,
> %T A000000 3179,3181,3197,3199,3209,3211,3227,3229,3239,3241,3257,3259,3269,3271,3281,3283,
> %U A000000 3285,3287,3289,3299,3301,3311,3313,3315,3317,3319,3329,3331,3341,3343,3345,3347,3349,
> %N A000000 Odd numbers not the sum of three twin primes.
> %Y A000000 CF. A007534
> %R A000000 1,2
> %O A000000
> %K A000000 easy,
> %p A000000
> %t A000000 a=3;p=3;q=5;Do[r=Prime[n];If[p+2==q||q+2==r,a=Append[a,q]];p=q;q=r,{n,4,200}];
> %t A000000 l=Length[a];b=Union[Flatten[Table[a[[i]]+a[[j]]+a[[k]],{i,1,l},{j,1,l},{k,1,l}]]];
> %t A000000 c=Table[2i+1,{i,0,3a[[-1]]/2}];Complement[c,b]
> %A A000000 Robert G. Wilson v (rgwv at southwind.net)
> %H A000000
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://list.seqfan.eu/pipermail/seqfan/attachments/19991103/ac5b00ca/attachment.htm>