|
%I #17 Sep 18 2019 14:55:06
%S 7,13,15,18,27,29,34,36,49,51,59,67,70,74,81,89,95,97,98,99,102,103,
%T 117,126,127,131,134,141,142,145,150,158,163,166,181,183,189,191,195,
%U 197,198,199,205,207,209,213,224,225,232,247,259,265,267,270,274,281
%N Values of n not reached in the Hofstadter sequence (A005185).
%C For any n, there is no solution to a(n) = A005185(x). Does lim_{n -> infinity} a(n)/n exist?
%C Plotting a(n)/n for the first 6 billion terms, it appears to be converging to ~7.39. - _Benjamin Chaffin_, Sep 17 2019
%H Benjamin Chaffin, <a href="/A076701/b076701.txt">Table of n, a(n) for n = 1..13805</a>
%H Benjamin Chaffin, <a href="/A076701/a076701.png">Log scale plot of a(n)/n from 1 .. 6*10^9</a>
%H Benjamin Chaffin, <a href="/A076701/a076701_1.png">Log scale plot of a(n)/n from 1000000 .. 6*10^9</a>
%t a[1] = a[2] = 1; a[n_] := a[n] = a[n - a[n - 1]] + a[n - a[n - 2]]; t = Table[a[n], {n, 1000}]; Take[ Complement[ Range@ 502, Union@ t], 56]
%Y Cf. A005185.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Oct 26 2002
|
