|
%I #28 Jan 25 2023 18:30:28
%S 1,3,4,5,6,7,9,10,11,12,13,14,15,16,17,18,20,21,22,23,24,25,26,27,28,
%T 29,30,31,32,33,34,35,36,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,
%U 53,54,55,56,57,58,59,60,61,62,63,64,66,67,68,69,70,71
%N a(n) = n + floor((3*n)^(1/3) - 2/3).
%C Complement: 2, 8, 19, 37, 65, 104, 157, 224, 310, 414, 540, 689, 863, ..., .
%H Harvey P. Dale, <a href="/A184336/b184336.txt">Table of n, a(n) for n = 1..1000</a>
%p A184336:=n->n+floor(-(2/3) + (3*n)^(1/3)); seq(A184336(k), k=1..100); # _Wesley Ivan Hurt_, Nov 08 2013
%t f[n_] := n + Floor[-2/3 + (3 n)^(1/3)]; Array[f, 66]
%t Table[n+Floor[Surd[3n,3]-2/3],{n,70}] (* _Harvey P. Dale_, Jan 25 2023 *)
%Y Cf. A007401.
%K easy,nonn
%O 1,2
%A _Robert G. Wilson v_, Feb 13 2011
|
