A227149 Numbers k for which the sum of digits is odd when k is written in the factorial base (A007623).
1, 2, 5, 6, 9, 10, 13, 14, 17, 18, 21, 22, 24, 27, 28, 31, 32, 35, 36, 39, 40, 43, 44, 47, 49, 50, 53, 54, 57, 58, 61, 62, 65, 66, 69, 70, 72, 75, 76, 79, 80, 83, 84, 87, 88, 91, 92, 95, 97, 98, 101, 102, 105, 106, 109, 110, 113, 114, 117, 118, 120, 123, 124
Offset: 1
Links
- Antti Karttunen, Table of n, a(n) for n = 1..2520
- Wikipedia, Parity of permutation.
- Index entries for sequences related to factorial base representation
Crossrefs
Programs
-
Mathematica
q[n_] := Module[{k = n, m = 2, s = 0, r}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, s += r; m++]; OddQ[s]]; Select[Range[125], q] (* Amiram Eldar, Jan 24 2024 *)
Comments