A022778 Place where n-th 1 occurs in A023116.

1, 2, 4, 6, 9, 12, 16, 21, 26, 32, 38, 45, 52, 60, 69, 78, 88, 98, 109, 120, 132, 145, 158, 172, 186, 201, 217, 233, 250, 267, 285, 303, 322, 342, 362, 383, 404, 426, 448, 471, 495, 519, 544, 569, 595, 621, 648, 676, 704, 733, 762, 792, 823, 854

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Comments

Also place where first n appears in A007337. - Franklin T. Adams-Watters, Nov 10 2006

Links

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

Crossrefs

Cf. A022776, A244977.

Programs

Mathematica

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

Formula

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