A176580 n^3+Largest square, (Largest square <= n^3).
0, 2, 12, 52, 128, 246, 412, 667, 996, 1458, 1961, 2627, 3409, 4313, 5448, 6739, 8192, 9813, 11608, 13583, 15921, 18477, 21257, 24267, 27513, 31250, 35000, 39283, 43856, 48725, 53896, 59375, 65529, 71658, 78508, 85724, 93312, 101278, 109628, 118368
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
r[n_]:=n^3;f[n_]:=r[n]+Floor[Sqrt[r[n]]]^2;Table[f[n],{n,0,5!}] Table[n^3+Floor[Sqrt[n^3]]^2,{n,0,40}] (* Harvey P. Dale, May 15 2025 *)
Comments