cp's OEIS Frontend

A069819 Numbers k such that 1/(Sum_{p|k} (1/p) - 1), where p are the prime divisors of k, is a positive integer.

%I A069819 #27 Dec 20 2021 18:48:54
%S A069819 30,60,90,120,150,180,240,270,300,360,450,480,540,600,720,750,810,858,
%T A069819 900,960,1080,1200,1350,1440,1500,1620,1716,1722,1800,1920,2160,2250,
%U A069819 2400,2430,2574,2700,2880,3000,3240,3432,3444,3600,3750,3840,4050,4320,4500
%N A069819 Numbers k such that 1/(Sum_{p|k} (1/p) - 1), where p are the prime divisors of k, is a positive integer.
%C A069819 Sequence is generated by A007850(n). For example: 30, 858, 1722 (30 = 2*3*5, 858 = 2*3*11*13, 1722 = 2*3*11*13) generate numbers of the form 2^a*3^b*5^c (A143207), 2^a*3^b*7^c*41^d, 2^a*3^b*11^c*13^d, (a,b,c,d => 1), which are in the sequence.
%C A069819 Equivalently, numbers k such that Sum_{p|k} 1/p - Product_{p|k} 1/p, where p are the prime divisors of k, is a positive integer. All these terms have at least 3 prime factors. When k is a term and p is a prime divisor of k, then p*k is another term (see Diophante link). - _Bernard Schott_, Dec 19 2021
%H A069819 Amiram Eldar, <a href="/A069819/b069819.txt">Table of n, a(n) for n = 1..4233</a> (terms below 10^10)
%H A069819 Diophante, <a href="http://www.diophante.fr/problemes-par-themes/arithmetique-et-algebre/a1-pot-pourri/3261-a1862-inversons-les-facteurs">A1862 - Inversons les facteurs</a> (in French).
%e A069819 For k = 30 = 2*3*5, 1/(Sum_{p|n} (1/p) - 1) = 1/(1/2 + 1/3 + 1/5 - 1) = 30 hence 30 is in the sequence.
%t A069819 Select[Range[4320], (sum = Plus @@ (1/FactorInteger[#][[;;,1]])) > 1 && IntegerQ[1/(sum - 1)] &] (* _Amiram Eldar_, Feb 03 2020 *)
%o A069819 (Python)
%o A069819 from sympy import factorint
%o A069819 from fractions import Fraction
%o A069819 def ok(n):
%o A069819     s = sum(Fraction(1, p) for p in factorint(n))
%o A069819     return s > 1 and (s - 1).numerator == 1
%o A069819 print([k for k in range(1, 4501) if ok(k)]) # _Michael S. Branicky_, Dec 19 2021
%o A069819 (PARI) isok(k) = my(f=factor(k), x=1/(sum(i=1, #f~, 1/f[i,1]) -1)); (x>1) && (denominator(x)==1); \\ _Michel Marcus_, Dec 19 2021
%Y A069819 Cf. A007850.
%Y A069819 A143207 is a subsequence.
%K A069819 easy,nonn
%O A069819 1,1
%A A069819 _Benoit Cloitre_, Apr 28 2002