A325981 Odd composites for which gcd(A325977(n), A325978(n)) is equal to abs(A325977(n)).
45, 495, 585, 765, 855, 1305, 18837, 21525, 31635, 38295, 45315, 50445, 51255, 60435, 63495, 68085, 77265, 96615, 1403115, 2446353, 3411975, 3999465, 4091745, 4233537, 4287255, 4631319, 10813425, 10967085, 11490345, 15578199, 16143309, 16329645, 16633071, 17179515, 17311203, 17355915, 21159075, 21933975, 22579725
Offset: 1
Keywords
Links
- Antti Karttunen (terms 1-62) & Giovanni Resta, Table of n, a(n) for n = 1..147
- Index entries for sequences where any odd perfect numbers must occur
Crossrefs
Programs
-
PARI
A034448(n) = { my(f=factorint(n)); prod(k=1, #f~, 1+(f[k, 1]^f[k, 2])); }; \\ After code in A034448 A034460(n) = (A034448(n) - n); A048250(n) = factorback(apply(p -> p+1,factor(n)[,1])); A325313(n) = (A048250(n) - n); A325977(n) = ((A034460(n)+A325313(n))/2); A162296(n) = sumdiv(n, d, d*(1-issquarefree(d))); A325314(n) = (n - A162296(n)); A048146(n) = (sigma(n)-A034448(n)); A325814(n) = (n-A048146(n)); A325978(n) = ((A325314(n)+A325814(n))/2); A325975(n) = gcd(A325977(n), A325978(n)); isA325981(n) = ((n%2)&&!isprime(n)&&(A325975(n)==abs(A325977(n)))); \\ Or alternatively as: isA325981(n) = if(!(n%2)||isprime(n),0,my(x = A325977(n), y = A325978(n)); (!x&&!y)||(x&&!(y%x)));
Comments