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.

A332387 Numbers k such that k, k + 1 and k + 2 have the same number of divisors in Eisenstein integers.

This page as a plain text file.
%I A332387 #10 Feb 11 2020 04:21:41
%S A332387 13448,27848,75774,135400,243338,276123,396950,452823,497575,524823,
%T A332387 565674,587575,632224,639848,719223,769316,861123,935799,1060904,
%U A332387 1073875,1153023,1204312,1308856,1366624,1413498,1490599,1555975,1565223,1601798,1767424,1902774,1923295
%N A332387 Numbers k such that k, k + 1 and k + 2 have the same number of divisors in Eisenstein integers.
%H A332387 Amiram Eldar, <a href="/A332387/b332387.txt">Table of n, a(n) for n = 1..10000</a>
%e A332387 13448 is a term since 13448, 13449 and 13450 each have 12 divisors in Eisenstein integers.
%t A332387 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]; Flatten[Position[Partition[ eisNumDiv /@ Range[10^6], 3, 1], {x_, x_, x_}]] (* after _Harvey P. Dale_ at A005238 *)
%Y A332387 Cf. A005238, A319442, A332313, A332386, A332388.
%K A332387 nonn
%O A332387 1,1
%A A332387 _Amiram Eldar_, Feb 10 2020