OFFSET
1,2
COMMENTS
FORMULA
a(n) = floor(s*n), where s=1+sqrt(7)-sqrt(6).
MATHEMATICA
k=7; r=1+k^(1/2)+(k-1)^(1/2); s=1+k^(1/2)-(k-1)^(1/2);
Table[Floor[r*n], {n, 1, 80}] (* A187389 *)
Table[Floor[s*n], {n, 1, 80}] (* A187390 *)
With[{c=1+Sqrt[7]-Sqrt[6]}, Floor[c*Range[100]]] (* Harvey P. Dale, Nov 29 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 09 2011
STATUS
approved