A022780 Place where n-th 1 occurs in A023118.

1, 2, 3, 5, 7, 10, 13, 17, 21, 26, 31, 36, 42, 48, 55, 62, 70, 78, 87, 96, 105, 115, 125, 136, 147, 159, 171, 184, 197, 210, 224, 238, 253, 268, 284, 300, 317, 334, 351, 369, 387, 406, 425, 445, 465, 486, 507, 529, 551, 573, 596, 619, 643, 667, 692

Offset

1,2

Links

Clark Kimberling, Table of n, a(n) for n = 1..1000

Formula

a(n) = n + 1 + Sum{floor[(n - k)/sqrt(5)], k = 0..n}.

Mathematica

Table[n + 1 + Sum[Floor[(n - k)/Sqrt[5]], {k, 0, n}], {n, 0, 200}] (* A022780 *)
(* Clark Kimberling, Mar 14 2015 *)

Crossrefs

Cf. A022776, A022778, A255977.

Sequence in context: A090499 A229170 A022335 * A075353 A132278 A025700

Adjacent sequences: A022777 A022778 A022779 * A022781 A022782 A022783

Keyword

nonn

Author

Clark Kimberling

Status

approved