|
%I M0956 #41 Jan 09 2016 12:01:50
%S 0,1,2,4,5,7,8,9,14,15,16,18,25,26,28,29,30,33,36,48,49,50,52,53,55,
%T 56,57,62,64,65,66,79,86,87,88,90,93,98,101,104,105,108,109,110,121,
%U 125,135,144,148,150,151,159,162,166,168,169,170,173,175,176,182
%N Lexicographically earliest increasing nonnegative sequence that contains no 4-term arithmetic progression.
%C a(n) = A005837(n) - 1. - _Alois P. Heinz_, Jan 31 2014
%D R. K. Guy, Unsolved Problems in Number Theory, E10.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H David W. Wilson, <a href="/A005839/b005839.txt">Table of n, a(n) for n = 1..10000</a> a(1..1001) from _Alois P. Heinz_
%t t = {0, 1, 2}; Do[s = Table[Append[i, n], {i, Subsets[t, {3}]}];
%t If[! MemberQ[Table[Differences[i, 2], {i, s}], {0, 0}], AppendTo[t, n]], {n, 3, 200}]; t (* _T. D. Noe_, Apr 17 2014 *)
%Y Summary of increasing sequences avoiding arithmetic progressions of specified lengths (the second of each pair is obtained by adding 1 to the first):
%Y 3-term AP: A005836 (>=0), A003278 (>0);
%Y 4-term AP: A005839 (>=0), A005837 (>0);
%Y 5-term AP: A020654 (>=0), A020655 (>0);
%Y 6-term AP: A020656 (>=0), A005838 (>0);
%Y 7-term AP: A020657 (>=0), A020658 (>0);
%Y 8-term AP: A020659 (>=0), A020660 (>0);
%Y 9-term AP: A020661 (>=0), A020662 (>0);
%Y 10-term AP: A020663 (>=0), A020664 (>0).
%K nonn
%O 1,3
%A _N. J. A. Sloane_
%E More terms from _Jeffrey Shallit_, Aug 15 1995.
%E Edited (with new offset, etc.) by _N. J. A. Sloane_, Jan 04 2016
|
