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 A102216 #14 Feb 16 2025 08:32:55
%S A102216 4,8,15,22,26,35,42,44,60,62,64,68,84,88,99,118,121,123,129,136,138,
%T A102216 141,143,145,152,158,161,165,169,174,176,183,187,189,194,196,198,200,
%U A102216 202,206,208,215,231,235,240,242,246,248,255,273,275,279,280,282,284
%N A102216 2-Suzanne numbers.
%C A102216 From _Amiram Eldar_, Apr 23 2021: (Start)
%C A102216 Composite numbers k such that the sum of digits of k (A007953) and the sum of sums of digits of the prime factors of k (taken with multiplicity, A118503) are both even.
%C A102216 The Monica and Suzanne sets were named by Smith (1996) after his two cousins, Monica and Suzanne Hammer. (End)
%D A102216 József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, Chapter 4, p. 384.
%D A102216 James J. Tattersall, Elementary Number Theory in Nine Chapters, 2nd ed., Cambridge University Press, 2005, p. 93.
%H A102216 Amiram Eldar, <a href="/A102216/b102216.txt">Table of n, a(n) for n = 1..10000</a>
%H A102216 Michael Smith, <a href="https://web.archive.org/web/2024*/https://www.fq.math.ca/Scanned/34-2/smith.pdf">Cousins of Smith Numbers: Monica and Suzanne Sets</a>, Fibonacci Quarterly, Vol. 34, No. 2 (1996), pp. 102-104.
%H A102216 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SuzanneSet.html">Suzanne Set</a>.
%t A102216 s[n_] := Plus @@ IntegerDigits[n]; f[p_, e_] := e*s[p]; sp[n_] := Plus @@ f @@@ FactorInteger[n]; suz2Q[n_] := CompositeQ[n] && And @@ EvenQ[{s[n], sp[n]}]; Select[Range[300], suz2Q] (* _Amiram Eldar_, Apr 23 2021 *)
%Y A102216 Subsequence of A102218.
%Y A102216 Cf. A007953, A018252, A102217, A118503.
%K A102216 nonn,base
%O A102216 1,1
%A A102216 _Eric W. Weisstein_, Dec 30 2004