login
A182443
a(0)=0, a(1)=1, for n>1, a(n) = floor(a(n-1)/n) + a(n-2)*2.
1
0, 1, 0, 2, 0, 4, 0, 8, 1, 16, 3, 32, 8, 64, 20, 129, 48, 260, 110, 525, 246, 1061, 540, 2145, 1169, 4336, 2504, 8764, 5321, 17711, 11232, 35784, 23582, 72282, 49289, 145972, 102632, 294717, 213019, 594896, 440910, 1200545, 910404, 2422262, 1875859
OFFSET
0,4
LINKS
MATHEMATICA
nxt[{n_, a_, b_}]:={n+1, b, Floor[b/(n+1)]+2a}; NestList[nxt, {1, 0, 1}, 50][[All, 2]] (* Harvey P. Dale, Sep 01 2022 *)
PROG
(Python)
prpr = 0
prev = 1
for n in range(2, 99):
. current = prev//n + prpr*2
. print prpr,
. prpr = prev
. prev = current
CROSSREFS
Sequence in context: A275670 A021102 A021053 * A128983 A265833 A066493
KEYWORD
nonn,easy
AUTHOR
Alex Ratushnyak, Apr 29 2012
STATUS
approved