%I #8 Sep 19 2022 06:21:51
%S 2,4,5,6,4,4,6,6,8,11,13,6,13,4
%N Sequence gives values of k in A122483.
%t 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 *)
%Y Cf. A122483.
%K nonn,more
%O 1,1
%A _Yasutoshi Kohmoto_ Sep 30 2006
%E More terms from _R. J. Mathar_, Oct 01 2006
%E a(12)-a(14) from _Amiram Eldar_, Sep 19 2022
|