A173497 -id:A173497 - cp's OEIS frontend

A173508 a(n) = ceiling(A173497(n)/2).

1, 1, 1, 2, 2, 3, 4, 6, 8, 11, 15, 20, 28, 38, 52, 71, 97, 132, 181, 247, 337, 461, 629, 860, 1174, 1604, 2191, 2993, 4089, 5585, 7630, 10422, 14237, 19448, 26567, 36291, 49574, 67720, 92507, 126367, 172620, 235804, 322114

Offset: 0

Roger L. Bagula, Nov 23 2010

nonn

Cf. A000032, A064323, A173497.

A173497 := proc(n) option remember; if n <= 1 then op(n+1,[2,1]) ; else             procname(n-1)+procname(n-2)-floor(procname(n-2)/2) ; end if; end proc:
A173508 := proc(n) ceil(A173497(n)/2) ; end proc:
seq(A173508(n),n=0..60) ;

Definition corrected, Mma code related to another sequence removed, sequence extended

A173513 a(n) = ceiling(A173510(n)/2).

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 4, 5, 7, 9, 11, 14, 18, 23, 30, 38, 49, 63, 80, 103, 132, 169, 216, 277, 355, 454, 582, 745, 954, 1222, 1565, 2005, 2568, 3289, 4212, 5395, 6910, 8850, 11335, 14517, 18593, 23814, 30500, 39064, 50032, 64080, 82072, 105116, 134630, 172431, 220846

Offset: 0

Roger L. Bagula, Nov 23 2010

nonn

Cf. A000032, A173497, A173510, A173508.

l[0] = 2; l[1] = 1;
l[n_] := l[n] = l[n - 1] + l[n - 2] - Floor[l[n - 1]/2]
Table[l[n] - Floor[l[n]/2], {n, 0, 30}]

a(n) = A173510(n) - floor(A173510(n)/2).

More terms from Amiram Eldar, Jul 05 2025

cp's OEIS Frontend

A173508 a(n) = ceiling(A173497(n)/2).

Views

Author

Keywords

Crossrefs

Programs

Maple

Extensions