|
%I #5 Mar 30 2012 18:57:32
%S 1,3,6,9,12,15,17,20,23,26,29,31,34,37,40,43,46,49,51,54,57,60,63,65,
%T 68,71,74,77,80,83,85,88,91,94,97,99,102,105,108,111,113,116,119,122,
%U 125,128,131,133,136,139,142,145,147,150,153,156,159,162,165,167,170,173,176,179,181,184,187,190,193,195
%N A001951(n)+A001951(n+1).
%t r = Sqrt[2]; f[n_] := Floor[n*r];
%t Table[f[n], {n, 0, 100}] (* A001951 *)
%t Table[f[n] + f[n + 1], {n, 0, 100}]
%t (* A191405(n)=A001951(n)+A001951(n+1) *)
%t Table[f[n] + f[n + 2], {n, 0, 100}]
%t (* A191406(n)=A001951(n)+A001951(n+2) *)
%t Table[f[n] + f[n + 3], {n, 0, 100}]
%t (* A191407(n)=A001951(n)+A001951(n+3) *)
%Y Cf. A191402, A191406, A191407.
%K nonn
%O 0,2
%A _Clark Kimberling_, Jun 01 2011
|
