OFFSET
1,3
LINKS
Vincenzo Librandi and T. D. Noe, Table of n, a(n) for n = 1..755 (first 123 terms from Vincenzo Librandi)
MATHEMATICA
t = {0, 1, 2}; Do[s = Table[Append[i, n], {i, Subsets[t, {3}]}]; If[! MemberQ[Flatten[Table[Differences[i, 3], {i, s}]], 0], AppendTo[t, n]], {n, 3, 1000}]; t
CROSSREFS
For the positive sequence, see A240555, which is this sequence plus 1.
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 09 2014
EXTENSIONS
Definition corrected by N. J. A. Sloane, Jan 04 2016.
STATUS
approved