# List letters at even- or odd-numbered positions in Alphabet

To make a list of the letters at even-numbered position in Alphabet, I wrote this code:

Select[Alphabet[], EvenQ[Flatten[Position[Alphabet[], #]]] &]


But it does not work. Where did I go wrong?

• As one begins learning Mathematica executing smaller parts of the overall function will give strong hints as to what might not be working as expected/desired. For example, Flatten[Position[Alphabet[], "a"]] gets you {1} and not 1.
– JimB
Feb 15, 2022 at 3:10
• @JimB But EvenQ[{1}] will show [False]. So, it shouldn't influence the answer. Feb 15, 2022 at 3:12
• With that you get {False} and what you need is just plain False.
– JimB
Feb 15, 2022 at 3:13
• How about Select[Alphabet[], EvenQ[Flatten[Position[Alphabet[], #]]][[1]] &].
– JimB
Feb 15, 2022 at 3:14
• @JimB Thank you. You are so clever. Should I close the question. I fear somebody will vote this question to close. Feb 15, 2022 at 3:17

Alphabet[][[1 ;; All ;; 2]]

• Alphabet[][[1 ;; ;; 2]] is equivalent and slightly shorter. Feb 16, 2022 at 19:20
Alphabet[][[Range[1, 26, 2]]] for odd positions, for even positions Alphabet[][[Range[2, 26, 2]]]