OFFSET
1,1
MATHEMATICA
a=5; b=0;
Table[n+Floor[(a*n+b)^(1/2)], {n, 100}]
Table[n-1+Ceiling[(n*n-b)/a], {n, 80}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jan 07 2011
STATUS
approved