cp's OEIS Frontend

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.

A366413 Squarefree composite k such that the smallest nondivisor prime is less than the greatest prime factor, i.e., A053669(k) < A006530(k).

This page as a plain text file.
%I A366413 #26 Jan 07 2024 14:19:20
%S A366413 10,14,15,21,22,26,33,34,35,38,39,42,46,51,55,57,58,62,65,66,69,70,74,
%T A366413 77,78,82,85,86,87,91,93,94,95,102,105,106,110,111,114,115,118,119,
%U A366413 122,123,129,130,133,134,138,141,142,143,145,146,154,155,158,159,161
%N A366413 Squarefree composite k such that the smallest nondivisor prime is less than the greatest prime factor, i.e., A053669(k) < A006530(k).
%C A366413 Squarefree numbers without the empty product, primes, and primorials.
%H A366413 Michael De Vlieger, <a href="/A366413/b366413.txt">Table of n, a(n) for n = 1..10000</a>
%F A366413 {a(n)} = { k : Omega(k) = omega(k) > 2, A053669(k) < A006530(k) }.
%F A366413 {a(n)} = { A120944 \ A002110 }.
%t A366413 s = Select[Range[6, 2^10], And[SquareFreeQ[#], CompositeQ[#] ] &]; Complement[s, Most@ FoldWhileList[Times, 6, Prime@ Range[3, 120], # <= s[[-1]] &] ]
%Y A366413 Cf. A000040, A001221, A001222, A002110, A005117, A006530, A053669, A120944.
%K A366413 nonn,easy
%O A366413 1,1
%A A366413 _Michael De Vlieger_, Jan 07 2024