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,1

Links

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

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 *)

Prog

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

Crossrefs

Cf. A061418, A100585, A182305, A182306.

Sequence in context: A030546 A028253 A020715 * A023384 A053407 A199162

Adjacent sequences: A182304 A182305 A182306 * A182308 A182309 A182310

Keyword

nonn,changed

Author

Alex Ratushnyak, Apr 23 2012

Status

approved