A123124 Sequence gives values of k in A122483.

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

Offset

1,1

Links

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

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

Crossrefs

Cf. A122483.

Sequence in context: A309681 A287224 A077867 * A166236 A291768 A059583

Adjacent sequences: A123121 A123122 A123123 * A123125 A123126 A123127

Keyword

nonn,more

Author

Yasutoshi Kohmoto Sep 30 2006

Extensions

More terms from R. J. Mathar, Oct 01 2006

a(12)-a(14) from Amiram Eldar, Sep 19 2022

Status

approved