(Translated by https://www.hiragana.jp/)
A119592 - OEIS
login
A119592
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) + 1)/6) for n>=6.
1
1, 2, 3, 5, 7, 10, 12, 14, 17, 20, 24, 28, 33, 38, 44, 51, 59, 68, 79, 91, 105, 121, 139, 160, 184, 211, 242, 278, 319, 366, 420, 482, 553, 634, 727, 833, 955, 1095, 1255, 1438, 1648, 1888, 2163, 2478, 2839, 3253, 3727, 4270, 4892, 5604, 6420, 7355, 8426
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
Cf. A119565.
Sequence in context: A123885 A010062 A119565 * A191892 A087539 A140690
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