|
1, 3, 6, 10, 15, 21, 28, 36, 46, 58, 72, 88, 106, 126, 148, 172, 198, 225, 255, 288, 324, 363, 405, 450, 498, 549, 603, 660, 720, 783, 847, 915, 987, 1063, 1143, 1227, 1315, 1407, 1503, 1603, 1707, 1815, 1927, 2043, 2163, 2287, 2412, 2542, 2677, 2817, 2962, 3112, 3267
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Accumulate[Select[Range[300], Divisible[#, Floor[CubeRoot[#]]]&]] (* Harvey P. Dale, Jun 19 2023 *)
|
|
PROG
|
(Magma)
A079645:=[n: n in [1..500] | n mod Floor(n^(1/3)) eq 0 ];
(SageMath)
A079645=[j for j in (1..500) if j%(floor(j^(1/3)))==0]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|