A184103 - OEIS

%I #17 Jul 13 2022 14:47:55

%S 1,2,3,4,6,8,10,11,14,16,18,20,23,26,29,31,35,38,41,44,48,52,56,59,64,

%T 68,72,76,81,86,91,95,101,106,111,116,122,128,134,139,146,152,158,164,

%U 171,178,185,191,199,206,213,220,228,236,244,251,260,268,276,284,293,302,311,319,329,338,347,356,366,376,386,395,406,416,426,436,447,458,469,479

%N a(n) = n-1+ceiling(n^2/16); complement of A184102.

%H <a href="/index/Rec#order_10">Index entries for linear recurrences with constant coefficients</a>, signature (2,-1,0,0,0,0,0,1,-2,1).

%F a(n) = n-1+ceiling(n^2/16).

%F a(n) = +2*a(n-1) -a(n-2) +a(n-8) -2*a(n-9) +a(n-10). - _R. J. Mathar_, Mar 11 2012

%t a=16; b=0;

%t Table[n+Floor[(a*n+b)^(1/2)],{n,100}] (* A184102 *)

%t Table[n-1+Ceiling[(n^2-b)/a],{n,80}]  (* A184103 *)

%t LinearRecurrence[{2,-1,0,0,0,0,0,1,-2,1},{1,2,3,4,6,8,10,11,14,16},80] (* _Harvey P. Dale_, Jul 05 2019 *)

%o (PARI) a(n) = n-1+ceil(n^2/16); \\ _Michel Marcus_, Jul 13 2022

%Y Cf. A184102.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Jan 09 2011

%E Name and formula corrected by _Michel Marcus_, Jul 13 2022