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.

A232724 Numbers k satisfying g(k - g(k)) > g(k) = greatest prime divisor of k.

This page as a plain text file.
%I A232724 #7 Jun 22 2021 01:05:59
%S A232724 8,16,18,24,32,36,40,48,54,60,64,72,75,81,84,90,96,98,100,108,120,126,
%T A232724 128,135,140,144,150,154,160,162,168,180,189,192,198,200,210,216,220,
%U A232724 224,225,234,240,243,245,250,256,260,264,270,280,288,294,297,300
%N A232724 Numbers k satisfying g(k - g(k)) > g(k) = greatest prime divisor of k.
%C A232724 Conjecture:  for every positive integer d, there exist infinitely many n for which a(n + 1) - a(n) + d; for d = 1, the first 4 such n are 40, 67, 76, 79.
%H A232724 Clark Kimberling, <a href="/A232724/b232724.txt">Table of n, a(n) for n = 1..1502</a>
%e A232724 g(18) = 3, g(18-3) = g(15) = 5, and 18 is the 3rd positive integer having the defining property, so a(3) = 18.
%t A232724 g[n_] := g[n] = FactorInteger[n][[-1, 1]]; t = {}; Do[If[g[n - g[n]] > g[n], AppendTo[t, n]], {n, 1, 500}]; t
%Y A232724 Cf. A233341, A233342, A006530, A000040.
%K A232724 nonn,easy
%O A232724 1,1
%A A232724 _Clark Kimberling_, Dec 11 2013