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 A380928 #14 Mar 07 2025 10:50:47
%S A380928 128,6561,6624,250047,252448,253125,264627,267168,290871,293664,
%T A380928 342792,377622,381248,557424,648432,762696,841824,1109052,2198208,
%U A380928 2374464,2472384,5018304,9529569,9646875,9765625,10085229,10209375,10673289,10775776,11085417,11211291
%N A380928 Integers k such that k = Sum k/(p_i + j), where p_i are the prime factors of k (with multiplicity). Case j = 5.
%e A380928 648432 = 2^4*3^3*19*79 = 648432*4/(2+5) + 648432*3/(3+5) + 648432/(19+5) + 648432/(79+5).
%p A380928 with(numtheory): P:=proc(q, h) local k, n, v; v:=[];
%p A380928 for n from 1 to q do if n=add(n*k[2]/(k[1]+h), k=ifactors(n)[2]) then v:=[op(v), n];
%p A380928 fi; od; op(v); end: P(11211291, 5);
%t A380928 s={};j=5;f[{a_,b_}]:=Table[a,b];Do[pf=f/@FactorInteger[k]//Flatten;L=Length[pf];If[Sum[k/(pf[[i]]+j),{i,L}]==k,AppendTo[s,k]],{k,3*10^6}];s (* _James C. McMahon_, Mar 04 2025 *)
%Y A380928 Cf. A380888, A380889, A380900, A380901, A380923, A380924, A380925, A380926, A380927.
%K A380928 nonn,easy
%O A380928 1,1
%A A380928 _Paolo P. Lava_, Mar 04 2025