OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
A010060(a(n)) * a(n) mod 2 = 0.
MATHEMATICA
Complement[Range[0, m = 88], Select[Range[1, m, 2], OddQ[ Total[ IntegerDigits[#, 2]]]&]] (* Jean-François Alcover, Dec 15 2018 *)
PROG
(Haskell)
a230709 n = a230709_list !! (n-1)
a230709_list = filter (\x -> a010060 x * x `mod` 2 == 0) [0..]
(PARI) is(n)=if(hammingweight(n)%2, n%2==0, 1) \\ Charles R Greathouse IV, May 09 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Oct 28 2013
STATUS
approved