|
%I #17 Sep 08 2022 08:45:32
%S 0,0,0,1,2,2,3,4,4,5,6,6,7,8,8,9,10,11,11,12,13,14,14,15,16,17,18,18,
%T 19,20,21,21,22,23,24,25,25,26,27,28,29,29,30,31,32,33,33,34,35,36,37,
%U 38,38,39,40,41,42,43,43,44,45
%N a(n) = floor(n - n^(2/3)).
%H Vincenzo Librandi, <a href="/A135672/b135672.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[n - n^(2/3)], {n, 100}] (* _Vincenzo Librandi_, Feb 18 2013 *)
%o (Magma) [Floor(n-n^(2/3)): n in [1..100]]; // _Vincenzo Librandi_, Feb 18 2013
%o (PARI) a(n)=n-sqrtnint(n^2-1,3)-1 \\ _Charles R Greathouse IV_, Sep 02 2015
%Y Cf. A135660, A135661, A135662, A135663, A135664, A135665, A028391, A135668, A135669, A135670, A135671.
%K nonn,easy
%O 1,5
%A _Mohammad K. Azarian_, Nov 25 2007
%E Offset corrected by _Mohammad K. Azarian_, Nov 19 2008
|
