%I #6 Mar 15 2015 01:28:52
%S 1,2,3,5,7,10,13,17,21,26,31,36,42,48,55,62,70,78,87,96,105,115,125,
%T 136,147,159,171,184,197,210,224,238,253,268,284,300,317,334,351,369,
%U 387,406,425,445,465,486,507,529,551,573,596,619,643,667,692
%N Place where n-th 1 occurs in A023118.
%H Clark Kimberling, <a href="/A022780/b022780.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = n + 1 + Sum{floor[(n - k)/sqrt(5)], k = 0..n}.
%t Table[n + 1 + Sum[Floor[(n - k)/Sqrt[5]], {k, 0, n}], {n, 0, 200}] (* A022780 *)
%t (* _Clark Kimberling_, Mar 14 2015 *)
%Y Cf. A022776, A022778, A255977.
%K nonn
%O 1,2
%A _Clark Kimberling_
|