A132588 - OEIS

%I #9 Feb 06 2019 15:46:23

%S 1,1,1,1,1,1,1,4,1,5,1,2,1,2,1,1,1,2,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,2,

%T 1,1,1,1,1,1,1,1,1,1,15,1,1,4,1,2,1,1,1,2,1,2,3,2,1,1,1,2,1,1,5,2,1,1,

%U 1,7,1,2,1,2,1,1,1,2,1,4,3,2,1,12,1,1

%N Let b(k) be the k-th term of the flattened irregular array where the m-th row contains the positive divisors of m (b(k) = A027750(k)). Then a(n) = gcd(b(n), n).

%H Rémy Sigrist, <a href="/A132588/b132588.txt">Table of n, a(n) for n = 1..10000</a>

%e A027750: 1,1,2,1,3,1,2,4,1,5,1,2,3,6,...

%e The 14th term of this list is 6.

%e So a(14) = GCD(6,14) = 2.

%o (PARI) for (m=1, oo, fordiv (m, d, print1 (gcd(d, n++) ", "); if (n==86, break (2)))) \\ _Rémy Sigrist_, Feb 06 2019

%Y Cf. A132587, A132589, A027750.

%K nonn

%O 1,8

%A _Leroy Quet_, Aug 23 2007

%E More terms from _Rémy Sigrist_, Feb 06 2019