|
%I #9 Dec 05 2022 08:31:13
%S 1,3,5,6,8,11,12,14,16,17,23,24,30,32,43,47,48,54,60,72,80,83,84,92,
%T 94,96,148,172,175,178,185,186,192,215,222,228,230,252,273,301,308,
%U 338,350,372,380,382,384,408,468,517,574,593,624,673,678,738,748,762,764,789
%N Repeated terms in A005185.
%t digits=30000;
%t Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n-1]] + Hofstadter[n - Hofstadter[n-2]];
%t Hofstadter[1] = Hofstadter[2] = 1;
%t a1=Table[Hofstadter[n], {n, 1, digits}];
%t b=Table[If[a1[[n]]-a1[[n-1]]==0, a1[[n]], 0], {n, 2, digits}];
%t c=Delete[Union[b], 1]
%Y Cf. A005185.
%K nonn
%O 1,2
%A _Roger L. Bagula_, Sep 29 2003
|
