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

0, 1, 2, 4, 8, 16, 33, 68, 140, 287, 588, 1202, 2453, 4998, 10171, 20675, 41985, 85186, 172704, 349891, 708417, 1433495, 2899190, 5860705, 11842209, 23918846, 48293161, 97472205, 196669165, 396699440, 799954518, 1612705792, 3250410162

Offset

0,3

Links

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

Mathematica

RecurrenceTable[{a[0]==0, a[1]==1, a[n]==2*a[n-1]+Floor[a[n-2]/n]}, a, {n, 40}] (* Harvey P. Dale, Mar 13 2016 *)

Prog

(Python)
prpr = 0
prev = 1
for n in range(2, 99):
.  current = prev*2 + prpr//n
.  print prpr,
.  prpr = prev
.  prev = current

Crossrefs

Sequence in context: A121485 A308808 A324406 * A098588 A367715 A126683

Adjacent sequences: A182439 A182440 A182441 * A182443 A182444 A182445

Keyword

nonn

Author

Alex Ratushnyak, Apr 29 2012

Status

approved