login
Sum[k^k], where sum is over positive integers, k, where k <= n and gcd(k,n) = 1.
1

%I #18 Jun 19 2021 12:37:25

%S 1,1,5,28,288,3126,50069,826696,17604145,388244060,10405071317,

%T 285312497280,9211817190184,303160805686506,11415167261421900,

%U 438197051187369424,18896062057839751444,827240565046755853710

%N Sum[k^k], where sum is over positive integers, k, where k <= n and gcd(k,n) = 1.

%H Seiichi Manyama, <a href="/A057792/b057792.txt">Table of n, a(n) for n = 1..387</a>

%e a(4) = 1^1 + 3^3 = 28, since 1 and 3 are the positive integers <= 4 and relatively prime to 4.

%o (PARI) a(n) = sum(k=1, n, if (gcd(k, n)==1, k^k)); \\ _Michel Marcus_, Jun 19 2021

%Y Cf. A023896, A053818, A053819, A053820, A308481.

%K nonn

%O 1,3

%A _Leroy Quet_, Nov 04 2000