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