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 A332386 #12 Feb 11 2020 03:54:48 %S A332386 3,7,32,50,68,174,184,200,212,219,247,291,328,343,368,376,435,472,495, %T A332386 543,579,608,644,679,712,716,723,788,795,849,860,871,874,904,932,939, %U A332386 1011,1015,1058,1074,1076,1159,1184,1220,1227,1336,1359,1384,1436,1495,1515 %N A332386 Numbers k such that k and k + 1 have the same number of divisors in Eisenstein integers. %H A332386 Amiram Eldar, <a href="/A332386/b332386.txt">Table of n, a(n) for n = 1..10000</a> %e A332386 3 is a term since 3 and 4 both have 3 divisors in Eisenstein integers. %t A332386 f[p_, e_] := Switch[Mod[p, 3], 0, 2*e + 1, 1, (e + 1)^2, 2, e + 1]; eisNumDiv[1] = 1; eisNumDiv[n_] := Times @@ f @@@ FactorInteger[n]; SequencePosition[eisNumDiv /@ Range[1520], {x_, x_}][[All, 1]] (* after _Harvey P. Dale_ at A005237 *) %Y A332386 Cf. A005237, A319442, A332312, A332387, A332388. %K A332386 nonn %O A332386 1,1 %A A332386 _Amiram Eldar_, Feb 10 2020