cp's OEIS Frontend

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.

A334166 Numbers k having a divisor d, such that d*k is a Zumkeller number (A083207).

This page as a plain text file.
%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