A182442 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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