%I #7 Dec 05 2013 19:55:36
%S 4,2,10,11,3,6,20,19,5,28,12,27,7,14,32,8,35,9,18,50,43,45,47,13,26,
%T 52,54,30,74,16,62,34,17,67,69,71,40,75,21,78,22,44,106,23,87,24,90,
%U 118,95,97,56,130,29,105,107,31,142,113,33,66,203,121,36,124,164,38,222,133,41
%N Rearrangement of natural numbers such that the n-th partial sum is divisible by the n-th composite number.
%t Composite[n_Integer] := FixedPoint[1 + n + PrimePi@ # &, n + PrimePi@ n + 1]; f[s_List] := Block[{c = Composite[1 + Length@ s], k = 1, t = Plus @@ s}, While[ MemberQ[s, k] || Mod[t + k, c] > 0, k++]; Append[s, k]]; Nest[f, {}, 69] (* _Robert G. Wilson v_, May 13 2011 *)
%K nonn
%O 1,1
%A _Amarnath Murthy_, Sep 13 2002
%E More terms from _David Wasserman_, Jan 16 2005