A122846 Sequence gives k numbers from A122839.
1, 9, 4, 36, 16, 9, 81, 4, 64, 35, 36, 49, 16, 25, 144, 15, 9, 16, 100, 81, 49, 4, 64, 35, 36, 196, 16, 15, 25, 49, 25, 144, 9, 60, 9, 100, 64, 100, 121, 15, 16, 81, 16, 4, 81, 9, 25, 16, 49, 4, 25, 16, 121, 25, 35, 256, 114, 36, 35, 81, 4, 49, 16, 16, 36, 4, 64
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
f[p_, e_] := (p^(e+1)-1)*(p^e+1)/(p-1)/(p^e-1)^2; ratio[1] = 1; ratio[n_] := Times @@ (f @@@ FactorInteger[n]); Select[ratio /@ Range[10^5], IntegerQ] (* Amiram Eldar, Dec 11 2019 *)
Formula
Extensions
More terms from Amiram Eldar, Dec 11 2019
Comments