A191405 - OEIS

%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