This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A318716 #6 Sep 02 2018 17:07:54 %S A318716 2,17719,40807,43381,50431,74269,83143,101543,105703,116143,121307, %T A318716 123469,139919,140699,142883,171613,181831,185803,191479,203557, %U A318716 205813,211381,213239,215267,219271,246703,249587,249899,279371,286897,289007,296993,300847,303949 %N A318716 Heinz numbers of strict integer partitions with relatively prime parts in which no two parts are relatively prime. %C A318716 The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k). %e A318716 The sequence of strict integer partitions with Heinz numbers in the sequence begins: (1), (15,10,6), (21,14,6), (20,15,6), (15,12,10), (45,10,6), (18,15,10). %t A318716 Select[Range[100000],With[{m=PrimePi/@FactorInteger[#][[All,1]]},And[SquareFreeQ[#],GCD@@m==1,And@@(GCD[##]>1&)@@@Select[Tuples[m,2],Less@@#&]]]&] %Y A318716 Cf. A078374, A289509, A302569, A302696, A302796, A302797, A303140, A303280, A303282, A303283, A305713, A318715, A318718, A318719. %K A318716 nonn %O A318716 1,1 %A A318716 _Gus Wiseman_, Sep 02 2018