A354946 a(n) = gcd(A001923(n),n^n).

1, 1, 1, 32, 1, 1, 1, 4, 1, 1, 1, 8, 1, 1, 9, 4, 17, 3, 19, 16, 7, 1, 1, 4, 1, 1, 1, 8, 1, 1, 1, 4, 3, 17, 1, 768, 1, 1, 1, 4, 1, 1, 1, 8, 1, 1, 1, 4, 1, 125, 3, 16, 1, 9, 1, 4, 1, 1, 1, 8, 1, 1, 1, 4, 5, 1, 1, 32, 9, 1, 1, 12, 1, 1, 5, 8, 1, 1, 1, 4, 1, 1

Offset

1,4

Links

Michel Marcus, Table of n, a(n) for n = 1..5000

Mathematica

A001923[n_]:=Sum[k^k, {k, 1, n}]; A[n_]:=GCD[A001923[n], n^n]; Table[A[n], {n, 1, 33}]

Prog

(PARI) a(n) = gcd(sum(k=1, n, k^k), n^n); \\ Michel Marcus, Jul 11 2022

Crossrefs

Cf. A000312, A001923.

Sequence in context: A221423 A062543 A086820 * A351000 A174923 A369651

Adjacent sequences: A354943 A354944 A354945 * A354947 A354948 A354949

Keyword

nonn

Author

José María Grau Ribas, Jun 12 2022

Status

approved