A097471 First differences of A076678.

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, 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

Offset

1,12

Links

Table of n, a(n) for n=1..64.

Formula

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

Mathematica

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

Crossrefs

Cf. A076678.

Sequence in context: A143935 A008616 A331973 * A025868 A271721 A050252

Adjacent sequences: A097468 A097469 A097470 * A097472 A097473 A097474

Keyword

nonn

Author

Gerald McGarvey, Sep 18 2004

Extensions

Definition modified by Georg Fischer, Jun 18 2021

Status

approved