|
%I #8 Mar 15 2015 01:28:44
%S 1,2,4,6,9,12,16,21,26,32,38,45,52,60,69,78,88,98,109,120,132,145,158,
%T 172,186,201,217,233,250,267,285,303,322,342,362,383,404,426,448,471,
%U 495,519,544,569,595,621,648,676,704,733,762,792,823,854
%N Place where n-th 1 occurs in A023116.
%C Also place where first n appears in A007337. - _Franklin T. Adams-Watters_, Nov 10 2006
%H Clark Kimberling, <a href="/A022778/b022778.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = n + 1 + Sum{floor[(n - k)/sqrt(3)], k = 0..n}.
%t Table[n + 1 + Sum[Floor[(n - k)/Sqrt[3]], {k, 0, n}], {n, 0, 200}] (* A022778 *)
%t (* _Clark Kimberling_, Mar 14 2015 *)
%Y Cf. A022776, A244977.
%K nonn
%O 1,2
%A _Clark Kimberling_
|
