# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a123124
Showing 1-1 of 1

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

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE