A343395 a(n) = Sum_{i=1..n} gcd(n^(n-i),n-i).

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

Links

Table of n, a(n) for n=1..63.

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 A079024

Adjacent sequences: A343392 A343393 A343394 * A343396 A343397 A343398

Keyword

nonn

Author

Wesley Ivan Hurt, Apr 13 2021

Status

approved