This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A294576 #13 Nov 22 2017 03:19:20 %S A294576 945,1155,1365,1575,1785,1995,2145,2205,2415,2625,2805,2835,3003,3045, %T A294576 3135,3255,3315,3465,3675,3705,3795,3885,4095,4125,4305,4455,4485, %U A294576 4515,4725,4785,4845,4935,5115,5145,5355,5445,5565,5655,5775,5865,5985 %N A294576 Odd numbers n such that 2 * A243823(n) > n. %C A294576 Odd terms in A294575. %C A294576 2^k - 1 is in the sequence for k = 12, 20, 24, 28, 30, 36, 40, 48, ... %H A294576 Michael De Vlieger, <a href="/A294576/b294576.txt">Table of n, a(n) for n = 1..10000</a> %t A294576 Select[Range[1, 6000, 2], Function[n, 2 (n - (Count[Range@ n, _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] + EulerPhi[n] - 1)) > n]] %Y A294576 Cf. A243823, A272619, A294575. %K A294576 nonn %O A294576 1,1 %A A294576 _Michael De Vlieger_, Nov 17 2017