A123124 Sequence gives values of k in A122483.

2, 4, 5, 6, 4, 4, 6, 6, 8, 11, 13, 6, 13, 4

Offset: 1

Author

Yasutoshi Kohmoto Sep 30 2006

Keywords

• nonn
• more

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