OFFSET
1,1
FORMULA
n+Floor[1/2+(2n/5)^(1/2)].
EXAMPLE
MATHEMATICA
Table[n+Floor[1/2+(2n/5)^(1/2)], {n, 100}]
Module[{nn=7, heps}, heps=PolygonalNumber[7, Range[nn]]; Complement[Range[Last[heps]], heps]] (* Harvey P. Dale, Apr 02 2023 *)
PROG
(Python)
from math import isqrt
def A183219(n): return n+(isqrt((n<<3)//5)+1>>1) # Chai Wah Wu, Oct 05 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 01 2011
STATUS
approved