A182307 a(n+1) = a(n) + floor(a(n)/6) with a(0) = 6.

6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 21, 24, 28, 32, 37, 43, 50, 58, 67, 78, 91, 106, 123, 143, 166, 193, 225, 262, 305, 355, 414, 483, 563, 656, 765, 892, 1040, 1213, 1415, 1650, 1925, 2245, 2619, 3055, 3564, 4158, 4851, 5659, 6602, 7702, 8985, 10482, 12229, 14267, 16644

Offset: 0

Author

Alex Ratushnyak, Apr 23 2012

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 0..5000

Crossrefs

Cf. A061418, A100585, A182305, A182306.

Programs

Maple

f:= proc(n) option remember;  floor(procname(n-1)*7/6) end proc:
f(0):= 6:
map(f, [$0..100]); # Robert Israel, Dec 22 2024

Mathematica

NestList[# + Floor[#/6] &, 6, 100] (* Paolo Xausa, Dec 22 2024 *)

Python

a=6
for i in range(55):
    print(a, end=', ')
    a += a//6