A294576 Odd numbers n such that 2 * A243823(n) > n.
945, 1155, 1365, 1575, 1785, 1995, 2145, 2205, 2415, 2625, 2805, 2835, 3003, 3045, 3135, 3255, 3315, 3465, 3675, 3705, 3795, 3885, 4095, 4125, 4305, 4455, 4485, 4515, 4725, 4785, 4845, 4935, 5115, 5145, 5355, 5445, 5565, 5655, 5775, 5865, 5985
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[1, 6000, 2], Function[n, 2 (n - (Count[Range@ n, _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] + EulerPhi[n] - 1)) > n]]
Comments