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

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A022776, A022778, A255977.

Programs

Mathematica

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

Formula

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