A123042 Sequence gives k numbers from A123041.
1, 3, 2, 6, 4, 3, 9, 2, 8, 6, 7, 4, 5, 12, 3, 4, 10, 9, 7, 2, 8, 1, 6, 14, 4, 5, 7, 5, 3, 2, 12, 5, 3, 3, 2, 10, 8, 10, 11, 5, 4, 9, 4, 2, 9, 3, 5, 2, 4, 7, 2, 3, 5, 4, 11, 4, 5, 16, 6, 9, 2, 7, 4, 4, 6, 2, 8, 3, 2, 15, 2, 8, 4, 10, 4, 8, 15, 14, 4, 2, 1, 1, 2
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..4309
Programs
-
Mathematica
f[p_, e_] := (p - 1)*(p^e + 1)^2/((p^e - 1)*(p^(e + 1) - 1)); s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; Select[s /@ Range[10^5], IntegerQ] (* Amiram Eldar, Sep 12 2022 *)
Formula
Extensions
More terms from Amiram Eldar, Sep 12 2022