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 A348752 #5 Nov 03 2021 18:30:33
%S A348752 4,9,12,16,20,25,28,32,36,48,49,64,72,80,81,100,112,116,121,128,144,
%T A348752 162,176,180,192,196,200,208,212,225,236,240,242,243,252,256,268,272,
%U A348752 288,300,304,320,324,336,361,384,400,405,432,441,448,450,464,468,484,496,500,512,560,567,576,588,592,596,604,625,640
%N A348752 Numbers k for which A348750(k) > k.
%o A348752 (PARI)
%o A348752 A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
%o A348752 A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)};
%o A348752 A348750(n) = A064989(A064989(sigma(A003961(A003961(n)))));
%o A348752 isA348752(n) = (A348750(n)>n);
%Y A348752 Cf. A003961, A064989, A348750, A348751.
%Y A348752 Cf. A348754 (corresponding 5-rough numbers, terms of A007310).
%K A348752 nonn
%O A348752 1,1
%A A348752 _Antti Karttunen_, Nov 02 2021