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 A333258 #9 Mar 14 2020 04:43:19 %S A333258 10,12,69,122,133,153,236,363,504,752,844,992,1001,1018,1243,1685, %T A333258 1819,1940,1994,2295,2323,2619,2871,2900,3184,3403,3483,3641,3763, %U A333258 3981,3984,4024,5482,6471,6892,7128,7925,7928,8186,8856,9077,9352,9641,9664,10113,10404 %N A333258 Numbers k that are not powers of primes such that the sum of proper unitary divisors of k is a cube. %C A333258 Powers of primes are excluded since they are trivial terms: their sum of proper unitary divisors is 1 (except for 1 whose sum of proper unitary divisors is 0) . %H A333258 Amiram Eldar, <a href="/A333258/b333258.txt">Table of n, a(n) for n = 1..10000</a> %e A333258 10 is a term since A034460(10) = 8 = 2^3. %t A333258 usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); us[n_] := usigma[n] - n; Select[Range[10000], PrimeNu[#] > 1 && IntegerQ @ Surd[us [#], 3] &] %Y A333258 The unitary version of A048698. %Y A333258 Cf. A000961, A024619, A034448, A034460, A063936, A329239. %K A333258 nonn %O A333258 1,1 %A A333258 _Amiram Eldar_, Mar 13 2020