A369529 a(n) = gcd(A007953(n), A007954(n)).

1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 4, 1, 2, 1, 4, 1, 2, 1, 3, 1, 1, 3, 1, 1, 9, 1, 1, 3, 4, 1, 2, 1, 8, 1, 2, 1, 4, 1, 5, 1, 1, 1, 1, 5, 1, 1, 1, 1, 6, 1, 4, 9, 2, 1, 12, 1, 2, 3, 7, 1, 1, 1, 1, 1, 1, 7, 1, 1, 8, 1, 2, 1, 4, 1, 2, 1, 16, 1, 9, 1, 1, 3

Offset

1,2

Links

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

Example

a(15) = gcd(A007953(15), A007954(15)) = gcd(6,5) = 1.

Mathematica

a[n_] := GCD @@ Apply[{Plus @@ #, Times @@ #} &, {IntegerDigits[n]}]; Array[a, 100] (* Amiram Eldar, Jan 26 2024 *)

Crossrefs

Cf. A007953, A007954, A066308.

Sequence in context: A052423 A126616 A121042 * A179635 A000030 A306354

Adjacent sequences: A369526 A369527 A369528 * A369530 A369531 A369532

Keyword

nonn,base,easy

Author

Ctibor O. Zizka, Jan 25 2024

Status

approved