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,1

Comments

Odd terms in A294575.

2^k - 1 is in the sequence for k = 12, 20, 24, 28, 30, 36, 40, 48, ...

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[1, 6000, 2], Function[n, 2 (n - (Count[Range@ n, _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] + EulerPhi[n] - 1)) > n]]

Crossrefs

Cf. A243823, A272619, A294575.

Sequence in context: A133814 A104438 A125013 * A252192 A252185 A005231

Adjacent sequences: A294573 A294574 A294575 * A294577 A294578 A294579

Keyword

nonn

Author

Michael De Vlieger, Nov 17 2017

Status

approved