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 A046683 #18 May 08 2021 22:55:49
%S A046683 1,2,4,9,18,25,36,100,121,225,289,484,529,841,900,1089,1156,1681,2116,
%T A046683 2209,2601,2809,3364,3481,4356,4761,5041,6724,6889,7225,7569,7921,
%U A046683 8836,10201,10404,11236,11449,12769,13225,13924,15129,17161,18769,19044
%N A046683 Numbers k such that the sum of squares of divisors of k and sum of cubes of divisors of k are relatively prime.
%C A046683 It can be shown that this is a subsequence of A028982.
%H A046683 Amiram Eldar, <a href="/A046683/b046683.txt">Table of n, a(n) for n = 1..10000</a>
%t A046683 sdcdQ[n_]:=Module[{d=Divisors[n]},CoprimeQ[Total[d^2],Total[d^3]]]; Select[ Range[ 20000],sdcdQ] (* _Harvey P. Dale_, Apr 09 2018 *)
%o A046683 (PARI) isok(n) = gcd(sigma(n, 2), sigma(n, 3)) == 1; \\ _Michel Marcus_, Sep 24 2019
%Y A046683 Cf. A028982, A046678, A046679, A046680, A046681, A046685.
%K A046683 nonn
%O A046683 1,2
%A A046683 _Labos Elemer_