|
%I #18 Jul 07 2024 11:40:22
%S 2,4,6,7,8,10,11,12,14,15,16,18,19,20,21,22,24,25,26,27,28,30,31,32,
%T 33,34,36,37,38,39,40,41,42,44,45,46,47,48,49,50,52,53,54,55,56,57,58,
%U 60,61,62,63,64,65,66,67,68,70,71,72,73,74,75,76,77,78,80,81,82,83,84,85,86,87,88,90,91,92,93,94,95,96,97,98,99,100,102,103,104,105,106,107,108,109,110,111,112,114,115,116,117
%N a(n) = n + floor(sqrt(3n)).
%C Complement of A183859.
%H Harvey P. Dale, <a href="/A183858/b183858.txt">Table of n, a(n) for n = 1..1000</a>
%t a=3; b=0;
%t Table[n+Floor[(a*n+b)^(1/2)],{n,100}]
%t Table[n-1+Ceiling[(n*n-b)/a],{n,80}]
%t Table[n+Floor[Sqrt[3n]],{n,100}] (* _Harvey P. Dale_, Jul 07 2024 *)
%o (PARI) a(n)=n+sqrtint(3*n)
%Y Cf. A183859.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jan 07 2011
%E Corrected by _Charles R Greathouse IV_, Jan 19 2011
|
