login
A182442
a(0)=0, a(1)=1, for n>1, a(n) = a(n-1)*2 + floor(a(n-2)/n).
0
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
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
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Apr 29 2012
STATUS
approved