A349065 Odd numbers k such that A183097(k) > 2*k.
3472875, 10418625, 17364375, 24310125, 31255875, 52093125, 72930375, 86821875, 93767625, 121550625, 156279375, 170170875, 202145625, 218791125, 260465625, 281302875, 364651875, 420217875, 434109375, 468838125, 510512625, 586915875, 606436875, 607753125, 656373375
Offset: 1
Keywords
Examples
3472875 is a term since A183097(3472875) = 7002474 > 2*3472875 = 6945750.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..100
Programs
-
Mathematica
f[p_, e_] := (p^(e + 1) - 1)/(p - 1) - p; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; q[n_] := s[n] > 2*n; Select[Range[1, 2.5*10^7, 2], q]
Comments