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
Keywords
Links
- Clark Kimberling, Table of n, a(n) for n = 1..1000
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}.
Comments