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.

A332764 7-smooth numbers of the form (ab+1)*(ac+1), a > b > c > 0.

This page as a plain text file.
%I A332764 #17 Mar 31 2021 10:46:15
%S A332764 28,45,96,120,126,175,225,280,288,336,378,441,540,560,630,640,672,
%T A332764 1080,1200,1225,1470,1680,1701,1792,1920,2016,2160,2520,2835,3136,
%U A332764 3888,3969,4000,4200,4500,4608,5250,5600,5760,6480,6860,7200,7840,7875,8400,8640,8960
%N A332764 7-smooth numbers of the form (ab+1)*(ac+1), a > b > c > 0.
%C A332764 Sequence is finite (see comments at A320884).
%H A332764 David A. Corneth, <a href="/A332764/b332764.txt">Table of n, a(n) for n = 1..1072</a>
%F A332764 Intersection of A002473 and A180045.
%t A332764 Block[{nn = 9000, nm, m}, nm = Ceiling[(Sqrt[8 nn + 1] - 3)/4]; Union@ Reap[Do[If[a > b > c > 0, Set[m, (a b + 1) (a c + 1)]; If[And[m <= nn, FactorInteger[m][[-1, 1]] <= 7 ], Sow[m]]], {a, nm}, {b, a - 1}, {c, b - 1}]][[2, 1]]] (* _Michael De Vlieger_, Feb 25 2020, after _Jean-François Alcover_ at A180045 *)
%Y A332764 Cf. A180045 (numbers (ab+1)(ac+1), a > b > c > 0), A320883 (subsequence of 3-smooth terms), A320884 (subsequence of 5-smooth terms), A002473 (7-smooth numbers).
%K A332764 nonn,fini
%O A332764 1,1
%A A332764 _Jon E. Schoenfield_, Feb 22 2020