A182443 a(0)=0, a(1)=1, for n>1, a(n) = floor(a(n-1)/n) + a(n-2)*2.

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

Harvey P. Dale, Table of n, a(n) for n = 0..1000

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

Adjacent sequences: A182440 A182441 A182442 * A182444 A182445 A182446

Keyword

nonn,easy

Author

Alex Ratushnyak, Apr 29 2012

Status

approved