OFFSET
1,2
LINKS
Zak Seidov, Table of n, a(n) for n = 1..127
MAPLE
S := {4}: A := array(1..10^4): for m from 1 to 10^4 do A[m] := 0 od: A[1] := 1: A[3] := 3: for n from 5 to 10^4-1 by 2 do mytest := 0: for j from 1 to n-2 by 2 do if A[j]>0 then if member(A[j]+n, S) then mytest := 1; break; fi:fi:od: if mytest=0 then A[n] := n; for j from 1 to n-2 by 2 do S := S union {A[j]+n} od: fi: od: for i from 1 to 10^4-1 by 2 do if A[i]>0 then printf(`%d, `, A[i]) fi: od: # James A. Sellers, Feb 26 2003
MATHEMATICA
s = {1, 3}; s2 = {4}; k = 5; Do[Label[kk]; If[Intersection[s + k, s2] == {}, s2 = Flatten[{s + k, s2}]; AppendTo[s, k]]; k = k + 2; If[k < 10000, Goto[kk]], {1}]; s (* Zak Seidov, Dec 23 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Feb 20 2003
EXTENSIONS
More terms from James A. Sellers, Feb 26 2003
STATUS
approved