A386911 Numbers k such that A064945(k) = A064945(k+1).

14, 14229, 194931, 8897930, 278110142

Offset

1,1

Comments

No other terms up to 10^9.

Links

Table of n, a(n) for n=1..5.

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 *)

Crossrefs

Cf. A064945.

Sequence in context: A048913 A246623 A208194 * A333954 A104376 A053870

Adjacent sequences: A386908 A386909 A386910 * A386912 A386913 A386914

Keyword

nonn,more

Author

Michel Marcus, Aug 07 2025

Status

approved