A136724 Numbers divisible by 4 that are not powers of 2.
12, 20, 24, 28, 36, 40, 44, 48, 52, 56, 60, 68, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 124, 132, 136, 140, 144, 148, 152, 156, 160, 164, 168, 172, 176, 180, 184, 188, 192, 196, 200, 204, 208, 212, 216, 220, 224, 228, 232, 236, 240, 244, 248
Offset: 1
Keywords
Links
- Nicomachus, Introduction to Arithmetic, Book I, Chapter X.
Programs
-
Mathematica
a = {}; Do[k = 4n; If[Round[Log[k]/Log[2]] == Log[k]/Log[2],[null], AppendTo[a, k]], {n, 1, 100}]; a Select[Range[62]*4,!IntegerQ[Log2[#]]&] (* James C. McMahon, Jun 01 2025 *)
Comments