OFFSET
0,2
COMMENTS
A variant of A119565.
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]+1)/6]; Array[a, 30]
NestList[nxt, {7, 10}, 10][[;; , 1]]; Join[{1, 2, 3, 5}, NestList[nxt, {7, 10}, 50][[;; , 1]]] (* Harvey P. Dale, May 12 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 01 2006
EXTENSIONS
Edited by Dean Hickerson, Jun 03 2006
First Mathematica program corrected by Harvey P. Dale, May 12 2024
STATUS
approved