A191405 A001951(n)+A001951(n+1).

1, 3, 6, 9, 12, 15, 17, 20, 23, 26, 29, 31, 34, 37, 40, 43, 46, 49, 51, 54, 57, 60, 63, 65, 68, 71, 74, 77, 80, 83, 85, 88, 91, 94, 97, 99, 102, 105, 108, 111, 113, 116, 119, 122, 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

Offset

0,2

Links

Table of n, a(n) for n=0..69.

Mathematica

r = Sqrt[2]; f[n_] := Floor[n*r];
Table[f[n], {n, 0, 100}]  (* A001951 *)
Table[f[n] + f[n + 1], {n, 0, 100}]
  (* A191405(n)=A001951(n)+A001951(n+1) *)
Table[f[n] + f[n + 2], {n, 0, 100}]
  (* A191406(n)=A001951(n)+A001951(n+2) *)
Table[f[n] + f[n + 3], {n, 0, 100}]
  (* A191407(n)=A001951(n)+A001951(n+3) *)

Crossrefs

Cf. A191402, A191406, A191407.

Sequence in context: A329514 A346951 A162500 * A198263 A276192 A347404

Adjacent sequences: A191402 A191403 A191404 * A191406 A191407 A191408

Keyword

nonn

Author

Clark Kimberling, Jun 01 2011

Status

approved