A103159 - OEIS

%I #11 Dec 12 2021 20:12:35

%S 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,

%T 1,1,1,1,1,2,2,2,2,2,2,2,2,2,1,5,5,5,5,5,5,5,5,5,1,2,2,2,2,2,2,2,2,2,

%U 1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

%N a(n) = GCD(reverse(n), reversed(n+1)).

%H Alois P. Heinz, <a href="/A103159/b103159.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = GCD(A004086(n), A004086(n+1)).

%t rd[x_] :=FromDigits[Reverse[IntegerDigits[x]]] Table[GCD[rd[w], rd[w+1]], {w, 1, 100}]

%o (Python)

%o from math import gcd

%o def a(n): return gcd(int(str(n)[::-1]), int(str(n+1)[::-1]))

%o print([a(n) for n in range(1, 106)]) # _Michael S. Branicky_, Dec 12 2021

%Y Cf. A004086.

%K base,nonn

%O 1,20

%A _Labos Elemer_, Jan 25 2005