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 A330650 #19 Nov 05 2023 21:05:53 %S A330650 1250,4802,31250,57122,167042,235298,260642,320000,559682,941192, %T A330650 1229312,1414562,3001250,3543122,3748322,5120000,6837602,8000000, %U A330650 9653618,9759362,14172488,14623232,15059072,15780962,19531250,19668992,24234722,35701250,38614472,40302242 %N A330650 Terms of A330606 which are not squares or powers of 2. %H A330650 Giovanni Resta, <a href="/A330650/b330650.txt">Table of n, a(n) for n = 1..655</a> (terms < 10^13; first 155 terms from Amiram Eldar and Robert G. Wilson v) %t A330650 fQ[n_] := CoprimeQ[n*DivisorSigma[0, n], DivisorSigma[1, n]] && !IntegerQ@ Sqrt@ n && !IntegerQ@ Log2@ n; Select[Range[10^6], fQ@# &] %o A330650 (Magma) [k:k in [1..10000000]|Gcd(k*NumberOfDivisors(k), DivisorSigma(1, k)) eq 1 and (not IsSquare(k)) and (not IsIntegral(Log(2,k)))]; // _Marius A. Burtea_, Dec 23 2019 %Y A330650 Cf. A330606. %K A330650 nonn %O A330650 1,1 %A A330650 _Amiram Eldar_ and _Robert G. Wilson v_, Dec 22 2019