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

Author

Ctibor O. Zizka, Jan 25 2024

Keywords

• nonn
• base
• easy

Examples

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

Crossrefs

Cf. A007953, A007954, A066308.

Programs

Mathematica

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