A347398 Expansion of g.f. Sum_{k>=1} k^k * x^(k^k)/(1 - x^(k^k)).

1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 28, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 28, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 28, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 32, 1, 1, 1, 5

Offset

1,4

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Formula

a(n) = A347397(n) - A347397(n-1) for n > 1.

a(n) = Sum_{k=1..n, k^k | n} k^k.

Example

1^1 | 108, 2^2 | 108 and 3^3 | 108. So a(108) = 1^1 + 2^2 + 3^3 = 32.

Prog

(PARI) a(n) = sum(k=1, n, (n%k^k==0)*k^k);

Crossrefs

Cf. A000203, A000312, A035316, A113061, A300909, A347397, A347399.

Sequence in context: A304042 A109768 A069293 * A333751 A323921 A293235

Adjacent sequences: A347395 A347396 A347397 * A347399 A347400 A347401

Keyword

nonn

Author

Seiichi Manyama, Aug 30 2021

Status

approved