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 A385238 #11 Jul 30 2025 00:56:06 %S A385238 8,16,20,25,95,169,221,234,295,312,323,410,543,1027,1681,3071,3419, %T A385238 3721,4183,4352,6649,7448,7979,8188,9047,9200,10108,11203,12769,15732, %U A385238 16240,20303,22819,25351,26291,28769,32761,33728,42880,51198,51338,52206,53613,55303,56800,63731,65567,71531,77550 %N A385238 Numbers k such that A224787(k) - k is a square. %C A385238 Numbers k such that the sum of the cubes of the prime factors of k, counted with multiplicity, is k plus a square. %C A385238 Includes p^2 for p in A027862. %H A385238 Robert Israel, <a href="/A385238/b385238.txt">Table of n, a(n) for n = 1..2451</a> %e A385238 a(3) = 20 = 2^2 * 5 is a term because 2*2^3 + 5^3 - 20 = 121 is a square. %p A385238 filter:= proc(n) local t; %p A385238 issqr(add(t[1]^3*t[2], t=ifactors(n)[2]) - n) %p A385238 end proc: %p A385238 select(filter, [$1..10^5]); %Y A385238 Cf. A027862, A224787, A386623, A386640. %K A385238 nonn %O A385238 1,1 %A A385238 _Will Gosnell_ and _Robert Israel_, Jul 28 2025