Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #22 Jul 12 2022 13:39:45
%S 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,
%T 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,
%U 4,5,1,1,32,9,1,1,12,1,1,5,8,1,1,1,4,1,1
%N a(n) = gcd(A001923(n),n^n).
%H Michel Marcus, <a href="/A354946/b354946.txt">Table of n, a(n) for n = 1..5000</a>
%t A001923[n_]:=Sum[k^k,{k,1,n}]; A[n_]:=GCD[A001923[n],n^n]; Table[A[n],{n,1,33}]
%o (PARI) a(n) = gcd(sum(k=1, n, k^k), n^n); \\ _Michel Marcus_, Jul 11 2022
%Y Cf. A000312, A001923.
%K nonn
%O 1,4
%A _José María Grau Ribas_, Jun 12 2022