A123124 Sequence gives values of k in A122483.
2, 4, 5, 6, 4, 4, 6, 6, 8, 11, 13, 6, 13, 4
Offset: 1
Crossrefs
Cf. A122483.
Programs
-
Mathematica
f[p_, e_] := (p^(e+1)-2*p+1) * (p^(e+1)-1)/((p-1)^2 * (p^e - 1)); s[n_] := (Times @@ f @@@ FactorInteger[n])/n; Select[s /@ Range[2, 10^5], IntegerQ] (* Amiram Eldar, Sep 19 2022 *)
Extensions
More terms from R. J. Mathar, Oct 01 2006
a(12)-a(14) from Amiram Eldar, Sep 19 2022