A359943 a(n) = Sum_{d|n, d-1 is cube} d.

1, 3, 1, 3, 1, 3, 1, 3, 10, 3, 1, 3, 1, 3, 1, 3, 1, 12, 1, 3, 1, 3, 1, 3, 1, 3, 10, 31, 1, 3, 1, 3, 1, 3, 1, 12, 1, 3, 1, 3, 1, 3, 1, 3, 10, 3, 1, 3, 1, 3, 1, 3, 1, 12, 1, 31, 1, 3, 1, 3, 1, 3, 10, 3, 66, 3, 1, 3, 1, 3, 1, 12, 1, 3, 1, 3, 1, 3, 1, 3, 10, 3, 1, 31, 1, 3

Offset

1,2

Links

Table of n, a(n) for n=1..86.

Formula

G.f.: Sum_{k>=0} (k^3+1) * x^(k^3+1)/(1 - x^(k^3+1)).

Mathematica

a[n_] := DivisorSum[n, # &, IntegerQ[Surd[#-1, 3]] &]; Array[a, 100] (* Amiram Eldar, Aug 09 2023 *)

Prog

(PARI) a(n) = sumdiv(n, d, ispower(d-1, 3)*d);

Crossrefs

Cf. A001093, A113061, A359937, A359942, A359944.

Sequence in context: A111736 A330889 A035652 * A362720 A205526 A233269

Adjacent sequences: A359940 A359941 A359942 * A359944 A359945 A359946

Keyword

nonn

Author

Seiichi Manyama, Jan 19 2023

Status

approved