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 A334166 #16 Oct 01 2020 03:02:17 %S A334166 6,10,12,14,18,20,24,28,30,36,40,42,44,48,50,52,54,56,60,66,68,70,72, %T A334166 76,78,80,84,88,90,92,96,98,100,102,104,105,108,110,112,114,116,120, %U A334166 124,126,130,132,136,138,140,144,150,152,154,156,160,162,168,170,174,176,180,182,184,186,190 %N A334166 Numbers k having a divisor d, such that d*k is a Zumkeller number (A083207). %C A334166 Conjecture: The difference between two consecutive terms is 6 at most. %H A334166 Amiram Eldar, <a href="/A334166/b334166.txt">Table of n, a(n) for n = 1..10000</a> %e A334166 2 is a divisor of 10 and 10 is not a Zumkeller number, but 2*10 = 20 is a Zumkeller number, therefore 10 is in the sequence. %t A334166 zQ[n_]:=Module[{d=Divisors[n],t,ds,x},ds=Plus@@d;If[Mod[ds,2]>0,False,t=CoefficientList[Product[1+x^i,{i,d}],x];t[[1+ds/2]]>0]]; fQ[n_]:=AnyTrue[n*Divisors[n],zQ]; %t A334166 Select[Range[200],fQ] (* zQ defined by _T. D. Noe_ at A083207 *) %Y A334166 Supersequence of A083207. %K A334166 nonn %O A334166 1,1 %A A334166 _Ivan N. Ianakiev_, Apr 17 2020