OFFSET
1,7
COMMENTS
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..5000
FORMULA
MATHEMATICA
evils=Select[Range[rng=100], EvenQ[DigitCount[#, 2][[1]]]&]; tmp=0; Table[Count[Map[CoprimeQ[n, #]&, Take[evils, tmp=NestWhile[#+1&, tmp+1, evils[[#]]<n && !(Length[evils]<=tmp+1)&]-1]], True], {n, rng}]
PROG
(PARI) a(n) = sum(k = 1, n, gcd(k, n) == 1 && !(hammingweight(k) % 2)); \\ Amiram Eldar, Nov 10 2024
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Vladimir Shevelev, Oct 10 2013
STATUS
approved