A332315 Numbers k such that k and k + 1 have the same norm of the sum of divisors in Gaussian integers.
30514, 36777, 43978, 3474262, 5745125, 10628554, 16567494, 40831527, 58008301, 111798477, 142981839, 288834504, 392413941, 580867202, 650141557, 944224497, 967593411, 1874210882, 6306287377, 6442064745, 7377567197, 8121464245
Offset: 1
Examples
30514 is a term since A103230(30514) = A103230(30515) = 5391360000.
Programs
-
Mathematica
csigma[n_] :=(Abs @ DivisorSigma[1, n, GaussianIntegers -> True])^2; seq = {}; n1 = csigma[1]; Do[n2 = csigma[n]; If[n1 == n2, AppendTo[seq, n - 1]]; n1 = n2, {n, 2, 5*10^5}]; seq
Comments