cp's OEIS Frontend

A179930 a(n) = gcd(n, A001157(n)).

%I A179930 #34 Nov 07 2017 03:40:39
%S A179930 1,1,1,1,1,2,1,1,1,10,1,6,1,2,5,1,1,1,1,2,1,2,1,2,1,2,1,14,1,10,1,1,1,
%T A179930 2,5,3,1,2,1,10,1,2,1,2,1,2,1,2,1,5,1,2,1,2,1,2,1,2,1,60,1,2,7,1,65,2,
%U A179930 1,2,1,10,1,1,1,2,15,2,1,2,1,2,1,2,1,84,5,2,1,2,1,10,1,2,1,2,1,6
%N A179930 a(n) = gcd(n, A001157(n)).
%H A179930 Antti Karttunen, <a href="/A179930/b179930.txt">Table of n, a(n) for n = 1..16384</a>
%F A179930 A006530(a(n)) = A082063(n). - _Reinhard Zumkeller_, Jul 10 2011
%F A179930 A020639(a(n)) = A082069(n). - _Antti Karttunen_, Nov 03 2017
%p A179930 A179930 := proc(n) igcd( n, numtheory[sigma][2](n)) ; end proc:
%p A179930 seq(A179930(n),n=1..100) ;
%t A179930 Array[GCD[#, DivisorSigma[2, #]] &, 96] (* _Michael De Vlieger_, Nov 03 2017 *)
%o A179930 (PARI) A179930(n) = gcd(n,sigma(n,2)); \\ _Antti Karttunen_, Nov 03 2017
%Y A179930 Cf. A001157, A082063, A082069, A179931, A009194.
%K A179930 nonn
%O A179930 1,6
%A A179930 _N. J. A. Sloane_, Jul 09 2011, following a suggestion from _R. J. Mathar_