|
%I #11 Mar 30 2012 17:34:13
%S 1,3,1,5,6,1,1,9,10,11,1,13,1,1,1,17,18,19,20,1,22,23,1,25,1,1,28,1,1,
%T 1,1,33,34,35,36,37,1,39,40,41,1,43,44,1,46,1,1,49,50,1,52,1,1,55,1,1,
%U 1,59,1,1,1,1,1,65,66,67,68,69,70,1,72,73,74,75,1,77,78,79,1,81,82,1,84,1
%N a(n) = n+1 where the Hofstadter-Conway Delta A093878(n) >0, otherwise a(n) = 1.
%t Conway[n_Integer?Positive] := Conway[n] =Conway[Conway[n-1]] + Conway[n - Conway[n-1]] Conway[1] = Conway[2] = 1 digits=200 a=Table[If[Conway[n]-Conway[n-1]>0, n, 1], {n, 2, digits}]
%Y Cf. A004001.
%K nonn
%O 1,2
%A _Roger L. Bagula_, Nov 12 2003
|
