%I #13 Sep 04 2015 03:27:26
%S 1,2,3,4,5,6,8,9,13,7,11,10,12,14,17,15,18,19,16,20,21,22,24,25,27,26,
%T 28,23,29,30,32,33,31,34,36,38,37,35,40,41,39,42,43,45,46,44,48,49,51,
%U 50,47,52,55,53,56,57,54,58,59,60,61,63,64,65,62,66,67,68,69,70,72,73
%N a(n) is smallest positive integer not already in the sequence such that every partial sum is squarefree.
%C Does every positive integer occur in the sequence?
%C The longest string of consecutive numbers is 6.
%H Michael De Vlieger, <a href="/A084693/b084693.txt">Table of n, a(n) for n = 0..1000</a>
%t a = {1}; Do[k = 1; While[Nand[! MemberQ[a, k], SquareFreeQ[Sum[a[[i]], {i, n}] + k]], k++]; AppendTo[a, k], {n, 71}]; a (* _Michael De Vlieger_, Sep 03 2015 *)
%Y Cf. A121644 (strictly increasing version).
%K nonn
%O 0,2
%A _Amarnath Murthy_, Jun 04 2003
%E More terms from _David Wasserman_, Dec 30 2004
|