A119592 -id:A119592

Search: a119592 -id:a119592

Displaying 1-1 of 1 result found.

page 1

A119565

a(0)=1, a(1)=2, a(2)=3, a(3)=5, a(4)=7, a(5)=10; a(n) = floor(a(n-1) + 1 + a(n-2)/6) for n>=6.

+10
2

1, 2, 3, 5, 7, 10, 12, 14, 17, 20, 23, 27, 31, 36, 42, 49, 57, 66, 76, 88, 101, 116, 133, 153, 176, 202, 232, 266, 305, 350, 401, 460, 527, 604, 692, 793, 909, 1042, 1194, 1368, 1568, 1797, 2059, 2359, 2703, 3097, 3548, 4065, 4657, 5335, 6112, 7002, 8021

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

OFFSET

0,2

LINKS

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

MATHEMATICA

a[0]=1; a[1]=2; a[2]=3; a[3]=5; a[4]=7; a[5]=10; a[n_]:=a[n]=Floor[a[n-1]+1+a[n-2]/6];

Join[{1, 2, 3, 5}, RecurrenceTable[{a[4]==7, a[5]==10, a[n]==Floor[a[n-1]+ 1+ a[n-2]/6]}, a, {n, 60}]] (* Harvey P. Dale, Mar 15 2016 *)

nxt[{a_, b_}]:={b, Floor[b+1+a/6]}; Join[{1, 2, 3, 5}, NestList[nxt, {7, 10}, 50][[;; , 1]]] (* Harvey P. Dale, Jul 08 2023 *)

PROG

(PARI) a=concat([1, 2, 3, 5, 7, 10], vector(95)); for(i=7, #a, a[i]=1+a[i-1]+a[i-2]\6); a \\ Charles R Greathouse IV, Nov 07 2011

CROSSREFS

Cf. A119592.

KEYWORD

nonn

AUTHOR

Roger L. Bagula, May 31 2006

EXTENSIONS

More terms from Zak Seidov, May 31 2006

Edited by N. J. A. Sloane, Jun 03 2006

STATUS

approved

page 1

Search completed in 0.006 seconds