A165775 n + (least square >= n), i.e., n + A048761(n).
0, 2, 6, 7, 8, 14, 15, 16, 17, 18, 26, 27, 28, 29, 30, 31, 32, 42, 43, 44, 45, 46, 47, 48, 49, 50, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 146
Offset: 0
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Table[n+Ceiling[Sqrt[n]]^2,{n,0,70}] (* Harvey P. Dale, Feb 04 2019 *) -
PARI
A165775(n)=n+(sqrtint(n-1)+1)^2