[go: up one dir, main page]

login
A343395
a(n) = Sum_{i=1..n} gcd(n^(n-i),n-i).
0
1, 2, 3, 5, 5, 12, 7, 13, 13, 26, 11, 39, 13, 36, 37, 33, 17, 74, 19, 69, 57, 68, 23, 103, 41, 82, 55, 97, 29, 226, 31, 81, 109, 130, 103, 207, 37, 140, 129, 193, 41, 324, 43, 177, 183, 164, 47, 281, 85, 266, 163, 213, 53, 340, 175, 287, 201, 210, 59, 621, 61, 220, 289
OFFSET
1,2
MATHEMATICA
Table[Sum[GCD[n^(n - i), n - i], {i, n}], {n, 100}]
PROG
(PARI) a(n) = sum(i=1, n, gcd(n^(n-i), n-i)); \\ Michel Marcus, Apr 15 2021
CROSSREFS
Cf. A018804 (Pillai's function), A342449, A343114.
Sequence in context: A092749 A152076 A133278 * A050368 A156834 A376017
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Apr 13 2021
STATUS
approved