A386911 Numbers k such that A064945(k) = A064945(k+1).
14, 14229, 194931, 8897930, 278110142
Offset: 1
Crossrefs
Cf. A064945.
Programs
-
Mathematica
A064945[n_] := Total[#*Range[Length[#], 1, -1]] & [Divisors[n]];q[n_]:=A064945[n]==A064945[n+1];Select[Range[200000],q[#]&] (* James C. McMahon, Aug 07 2025 *)
Comments