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 A120700 #10 Jan 15 2020 06:07:34 %S A120700 2,9,40,56,88,104,136,152,184,232,248,296,328,344,376,424,472,488,536, %T A120700 568,584,632,664,712,776,808,824,856,872,904,1016,1048,1096,1112,1192, %U A120700 1208,1256,1304,1336,1384,1432,1448,1528,1544,1576,1592,1688,1784,1816 %N A120700 a(n) is the least refactorable number k having the n-th prime as its greatest prime factor. %H A120700 Amiram Eldar, <a href="/A120700/b120700.txt">Table of n, a(n) for n = 1..10000</a> %t A120700 f[n_] := Block[{a = Mod[n, DivisorSigma[0, n]], b = PrimePi[FactorInteger[n][[ -1, 1]]]}, {a, b}]; t = Table[0, {100}]; Do[c = f[n]; If[c[[1]] == 0 && t[[c[[2]]]] == 0, t[[c[[2]]]] = n], {n, 2, 1831}] %Y A120700 Cf. A033950, A036878. %K A120700 nonn %O A120700 1,1 %A A120700 _Walter Kehowski_ and _Robert G. Wilson v_, Jun 28 2006