A097471 - OEIS

%I #10 Jun 18 2021 14:47:20

%S 0,1,0,1,0,1,1,1,1,1,1,2,1,2,1,2,2,2,2,2,3,2,3,2,3,3,3,3,3,4,3,4,3,5,

%T 3,5,3,5,4,5,4,5,5,5,5,5,6,5,6,5,7,5,7,5,8,5,8,5,8,6,8,6,8,7

%N First differences of A076678.

%F a(n) = A076678(n) - A076678(n-1).

%t nxt[{a_,b_}]:={b,Floor[Sqrt[b]]+a}; Differences[NestList[nxt,{1,1},70][[All,1]]] (* _Harvey P. Dale_, Sep 10 2017 *)

%Y Cf. A076678.

%K nonn

%O 1,12

%A _Gerald McGarvey_, Sep 18 2004

%E Definition modified by _Georg Fischer_, Jun 18 2021