A337366 Number of representations of A036691(n) as a sum of 3 nonnegative cubes.
1, 0, 1, 1, 2, 1, 1, 2, 1, 4, 6, 3, 8, 8, 14, 7
Offset: 0
Examples
a(4) = 2 because A036691(4) = 1728 = 12^3 = 6^3 + 8^3 + 10^3.
Programs
-
Mathematica
A036691 = Join[{1}, FoldList[Times, Select[Range[20], CompositeQ]]]; Table[Length@ PowersRepresentations[A036691[[n]], 3, 3], {n, 10}] (* Robert Price, Sep 08 2020 *)
Comments